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1 INTRODUCTION 

Any  general-purpose  'bureau'  computing  service  needs  to  keep  accounts  of  the 

work  done  for  its  various  users.  The  reasons  for  accounting  the  resources  used  by 

jobs  run  on  the  computers  in  Mathematics  and  Computation  Department  have  been 
1 2 2 3. 

argued  by  Sizer  * and  Morgan  ’ . This  Report  is  not  so  much  concerned  with  the 
'why'  but  the  'how'  of  accounting,  and  in  particular  with  specific  accounting 
jobs  run  under  the  George  Operating  Systems  on  the  ICL  I904A  and  I906S  computers. 
The  author's  contribution  has  been  to  design  the  complete  accounting  system  and 
design  and  write  the  software  used.  Both  the  accounting  system  and  the  software 
used  are  described  in  this  Report. 

Before  proceeding  to  describe  the  methods  used  a brief  summary  of  the 
purpose  of  accounting  is  given  here.  The  accounting  system  provides  information 
on  which  certain  vital  facets  of  computer  management  depend;  these  are: 

(i)  The  budgetary  control  scheme;  which  enables  users  to  control  their 
rate  of  spend  on  computing. 

(ii)  Performance  analysis;  which  shews  the  effectiveness  of  the  choice  of 
installation  parameters  and  indicates  those  areas  where  desired 
goals  are  not  being  achieved. 

(iii)  Attribution  of  the  full  costs  of  running  the  1904A  and  1906S  to  users. 

(iv)  Billing  of  repayment  users;  bills  are  based  on  the  quarterly  account- 
ing information  sent  to  Finance  Branch. 

It  has  been  the  objective  in  the  design  of  the  accounting  system  to  achieve 
a semi-automatic,  highly  reliable  system  which  will  exploit  to  the  full  the  power- 
ful facilities  of  the  operating  system,  such  as  the  automatic  storage  and  retrieval 
of  files  and  the  sophisticated  job  control  language,  and  which  requires  the  minimum 

of  human  intervention.  Many  years  of  experience  in  the  accounting  of  jobs  under 
. 4 

a manual  operating  system  continued  us  in  the  belief  that  human  beings  are  much 
too  fallible  to  he  allowed  a major  role  in  the  input  to  any  accounting  procedure. 

In  particular,  under  the  George  Operating  System  the  costcodes  are  built  into  the 
system  on  a semi-permanent  basis  rather  than  being  submitted  with  every  job,  which 
would  raise  all  the  attendant  problems  of  misreading  and  mistyping  as  was  the  case 
under  the  manual  system. 

The  accounting  procedure  involves  the  running  of  a number  of  jobs,  each  of 
which  is  controlled  by  a macro  (a  set  of  George  commands),  at  various  time 
intervals.  The  time  interval  varies  from  2 hours  for  job  charging  to  throe 

months  for  the  quarterly  accounts  summary. 


■' 


4 


A mixture  of  programming  languages  has  been  used.  Most  of  the  early 
programs  were  written  in  Fortran  or  PLAN.  Later  as  Algol  68  became  available 
programs  were  written  in  this  language  taking  advantage  of  the  list  processing 
and  character  handling  facilities  offered  by  Algol  68. 

A considerable  volume  of  data  generated  by  two  distinct  sources  is  pro- 
cessed daily  and  is  now  briefly  described. 

The  first  source  of  data  is  the  series  of  journal  files  generated  by  George, 
each  of  which  is  called  SJFILE.  As  certain  events  occur,  eg  a job  starting,  a 
peripheral  channel  being  released,  etc,  George  records  the  details  in  the  current 
SJFILE.  Each  SJFILE  contains  up  to  25000  words  of  data  on  average;  about  25 
SJFILEs  are  generated  every  2A  hours.  From  this  data,  the  2-hourly  accounting  job 
assembles  about  600  job  records  per  day.  It  is  obvious  that  with  such  a large 
volume  of  data  to  be  processed  each  day  the  accounting  program  needs  to  be  fail 
safe.  An  automatic  restart  mechanism  has  been  built-in  which  will  force  the  job 
to  continue  without  loss  of  data  after  a machine  breakdown  during  a run. 

The  second  source  of  data  is  the  series  of  magnetic  tapes  called  dump  tapes 
which  contain  details  of  every  file  owned  by  users.  From  this  information, 
approximately  500  filestore  charge  records  are  generated  each  day. 

At  the  end  of  each  accounting  period  of  two  weeks,  approximately  I 1000 
accounting  records  are  sorted,  merged  and  listed.  These  listings  are  subsequently 
distributed  to  departments. 

Because  of  the  increasing  scarcity  and  price  of  continuous  computer 
stationery,  the  amount  of  final  processed  accounting  information  committed  to 
paper  each  fortnight  has  been  drastically  pruned  and  other  forms  of  output  media 
investigated.  This  has  led  to  the  use  of  COM^ , Computer  Output  to  Microfilm. 

The  fortnightly  accounts  listings  were  an  obvious  choice  for  production  in  this 
form,  and  the  accounting  was  one  of  the  first  computer  applications  in  the 
Establishment  to  generate  this  type  of  output. 

No  major  development  work  on  the  accounting  system  has  been  done  since  1976 
and  it  is  anticipated  that  no  changes,  except  minor  mod  if ica t ions , will  be  made 
to  the  system  for  the  duration  of  the  life  of  the  George  Operating  Systems  at  KAE . 

The  reader  may  be  interested  to  know  the  overheads  incurred  by  such  an 
accounting  system.  An  analysis  of  one  year's  running  of  the  system  shows  that 
accounting  work  (including  budgetary  control  scheme  work)  represents  1.5%  of 
total  computer  use;  computer  use  being  measured  in  terms  of  money  spent.  This  is 
an  acceptable  overhead  in  view  of  the  value  of  the  resulting  output  for 


specifically  accounting  purposes,  budgetary  control  work  and  performance 
analysis . 

The  charging  policy,  in  respect  of  resources  charged  for  and  the  distribution 
of  charges  between  these  resources,  is  described  in  section  2. 

The  source  data  used  in  the  calculation  of  charges  is  described  in 
section  3. 

The  interface  between  the  accounting  system  and  the  budgetary  control 
scheme  is  described  in  section  4. 

Each  macro  used  in  the  accounting  system  is  described  in  section  5. 

2 CHARGING  POLICY 

A job  run  under  George  must  make  use  of  some  or  all  of  the  resources 
available  such  as  the  CPU,  main  store,  magnetic  tapes,  basic  peripherals,  disc 
storage,  the  communications  processor  and  stationery.  As  no  job  is  ever  run 
alone  in  the  machine  it  must  share  and  at  times  compete  for  resources  with  other 
jobs.  A major  objective  of  the  charging  policy  is  that  a user  should  be  made 
aware  that  he  is  not  the  sole  user  of  a computer,  that  it  costs  real  money  to 
support  his  activity,  and  that  he  is  accountable  for  whatever  resources  he  uses. 

The  other  major  objective  is  to  meet  the  requirement  laid  upon  the  Computing 
Service  to  'recover'  the  cost  of  running  the  1904A  and  1906S  computers  in  the 
form  of  cost  attributions  to  users;  this  is  most  easily  and  fairly  done  by 
devising  charging  algorithms  that  equate  the  notional  income  from  the  charges  for 
use  of  resources  to  the  all-in  or  comprehensive  running  costs.  There  are  three 
types  of  charges  a computer  user  may  incur  at  present,  and  they  are: 

(i)  filestore  charges; 

(ii)  job  charges;  includes  charges  for  CPU  time,  connect  time  and 
magnetic  tape  loadings;  and 

(iii)  lineprinter  paper  charges. 

The  algorithms  used  for  computing  these  charges  are  described  in  this 
section  and  summarised  in  Appendix  A. 

2.1  Resources  charged 

2.1.1  Filestore  space 

Filestore  (see  Appendix  B) , which  is  the  collection  of  all  users'  files  and 
system  files,  has  grown  at  a phenomenal  rate  since  the  introduction  of  George  on 
the  I904A  in  1971.  To  illustrate  the  rate  of  increase  the  following  table  shows 
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the  size  of  the  I906S  filestore  (which  began  life  on  the  1904A)  in  December  of 
each  year  from  1972: 


Year 

Size  in  2048-character  blocks 

1972 

93768 

1973 

216321 

1974 

384439 

1975 

601298 

1976 

810879 

1977 

1594136 

It  is  necessary  for  any  installation  running  the  George  Operating  System 
to  attempt  to  curb  filestore  growth  for  the  following  reasons: 

(i)  As  filestore  grows  then  a smaller  percentage  of  files  are  able  to  be 
held  on-line  (on  disc  storage).  Jobs  are  therefore  more  frequently  held  up  while 
the  files  they  require  are  retrieved,  ie  brought  on-line  from  magnetic  tapes 
known  as  dump  tapes.  One  possible  remedy  is  to  increase  the  number  of  magnetic 
discs  and  disc  controllers.  This  equipment  however  is  costly  in  itself  and  is 
attended  by  consequential  costs  for  increased  air  conditioning. 

(ii)  As  on-line  filestore  grows,  it  is  necessary  to  call  in  a special  job 
called  UNJAMMER  more  frequently  in  order  to  free  disc  space  to  make  way  for  yet 
more  files,  thus  increasing  system  overheads. 

(iii)  Dumping  and  dump  processing  take  longer  as  directories  increase  in 
size,  and  eventually  the  situation  would  be  reached  when  it  would  not  be  possible 
to  make  a complete  copy  of  all  the  directories  onto  one  dump  tape.  This  would 
make  impossible  the  reconstitution  of  filestore  (known  as  a general  restore)  in 
the  event  of  a seriovis  system  failure. 

It  follows  then,  that  the  overall  effect  of  allowing  the  filestore  to  grow 
in  an  uncontrolled  fashion,  is  to  degrade  the  performance  of  the  computers,  which 
must  affect  all  users.  As  there  is  no  easy  way  of  implementing  filestore  space 
rationing,  users  are  charged  for  filestore  space  as  a means  of  making  them  aware 
of  the  space  they  are  occupying  and  encouraging  them  to  erase  redundant  files. 

The  charging  algorithm  is: 

charge  per  directory  per  day  = Nn  + Ss 
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N ■ total  number  of  files 
n ■ charge  per  file 

S » total  size  of  files  in  terms  of  512  word  blocks 
s - charge  per  block. 

2.1.2  Job  resources 

(a)  Central  processor  unit  time 

Ceorge,  a multi-job  operating  system,  provides  26  urgency  levels  for  running 
jobs,  the  urgency  levels  being  identified  by  the  letters  of  the  alphabet. 

A identifies  the  highest,  most  favourable  level,  and  Z the  lowest,  least 
favourable  level.  The  job  scheduler  discriminates  in  favour  of  a job  running  at 
a higher  urgency  level  against  a job  running  at  the  same  time  at  a lower  urgency 
level.  At  RAE , users  are  allowed  budgets  of  CPU  time  in  units  of  seconds  for  two 
urgency  levels  J and  Q . Each  job  by  default  starts  at  urgency  M , and 
continues  at  that  level  until  a program  is  loaded  then  the  user  may  elect  to  switch 
to  urgency  J or  automatically  drop  down  to  urgency  Q (if  the  Q budget  is 
overdrawn  then  Ceorge  automatically  runs  the  job  at  urgency  Z ). 

Obviously,  there  is  a finite  amount  of  CPU  time  to  be  shared  out  amongst 
users;  two  methods  of  control  are  used  to  limit  this  resource.  Firstly,  an  upper 
limit  of  CPU  time  is  imposed  on  each  job  running  during  the  daytime.  Secondly, 
users  are  charged  for  CPU  time  according  to  urgency  levels  used.  The  higher  the 
urgency  level,  the  higher  the  charge. 

The  charging  algorithm  is: 


charge  for  CPU  time  used  by  a job 


c~*  M C 

I-V1 

u“A 


the  symbol 

M 

u 

C 

u 

either  i 

or  i 


is  here  used  to  denote  a simulation  through  the  letters  of  the 
alphabet ; 

- total  seconds  of  CPU  time  at  urgency  u , 

■ charge  per  second  of  CPU  time  at  urgency  u , and 
• I if  job  started  in  peak  hours, 

■ 2 if  job  started  in  off-peak  hours. 


(b)  Connect  t inn' 
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Installation  parameters  are  used  to  control  the  number  of  jobs  in  the 
machine.  These  parameters  are  used  to  impose  upper  limits  on  the  number  of  NOP 
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and  BACKGROUND  jobs  which  may  be  run  concurrently.  The  upper  limits  were  set 
after  careful  investigation  and  consideration  with  the  aim  of  achieving  optimum 
throughput  of  jobs  and  acceptable  response  at  a MOP  console  depending  on  the  time 
of  day. 

For  the  1906S,  the  upper  limit  for  MOP  jobs  i8  well  below  the  actual  number 
of  MOP  consoles  (either  connected  via  direct  lines  or  telephone  lines  into  the 
computer)  which  may  access  the  1906S,  so  of  course  not  all  MOP  users  can  access 
the  computer  at  the  same  time.  For  the  1904A,  the  situation  is  rather  different; 
there  are  only  a few  MOP  consoles  linked  into  the  I904A  and  therefore  users  often 
have  to  queue  for  a MOP  console. 

It  was  once  a fairly  common  occurrence  for  certain  MOP  users  to  log  in  at 
start  of  work  in  the  morning  and  log  out  just  before  going  home  in  the  evening 
and  to  do  very  little  MOP  work  in  between.  Thus,  a number  of  MOP  slots  were 
almoet  permanently  occupied  by  such  users  to  the  disadvantage  of  others.  To 
encourage  users  to  make  efficient  use  of  MOP  time  and  to  prevent  a user  monopolis- 
ing a console  all  day,  two  controls  were  brought  in.  Firstly,  a MOP  job  which  has 
been  'timed  out'  for  10  minutes  is  automatically  abandoned,  ie  George  forces  the 
job  to  log  out  thus  freeing  a MOP  slot  for  another  user.  Secondly,  users  are 
charged  for  the  elapsed  time  of  a MOP  job. 

The  charging  algorithm  is: 

charge  for  connect  time  * Ee 

where  E is  the  total  connect  time  in  minutes , and 
e is  the  charge  per  minute  of  connect  time. 

Connect  time  is  defined  as  the  elapsed  time  between: 


LOGIN 

and 

LOGOUT 

or 

CONNECT 

and 

LOGOUT 

or 

LOGIN 

and 

DISCONNECT 

or 

CONNECT 

and 

DISCONNECT  . 

(c)  Magnetic  tape 

Whenever  a job  requests  the  use  of  a magnetic  tape  the  request  is  routed 
by  George  to  the  central  operator's  console.  An  operator  passes  on  the  request  to 
the  magnetic  tape  librarian  who  locates  the  required  magnetic  tape  (the  library 
currently  holds  approximately  8000  magnetic  tapes)  and  gives  it  to  the  operator 
for  loading  on  an  available  and  suitable  magnetic  tape  deck. 
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The  operator's  task  is  made  difficult  because  there  is  no  way  a request  can 
be  anticipated  in  advance,  unless  it  is  from  a BACKGROUND  job  initiated  at  the 
central  site  when  magnetic  tape  requests  are  specified  on  the  accompanying  job 
form.  In  such  cases  magnetic  tapes  can  be  brought  into  the  machine  room  ready  to 
be  loaded  when  required.  It  can  be  appreciated  that  if  even  a small  percentage 
of  jobs  in  the  system  demand  magnetic  tapes,  then  the  operators  are  kept  very 
busy  meeting  these  requests  as  well  as  performing  other  duties. 

The  handling  of  magnetic  tapes  under  George  therefore  presents  operational 
overheads  and  for  this  reason  users  are  encouraged  to  use  this  resource  with  dis- 
cretion by  the  imposition  of  a fixed  charge  for  every  successful  onlininR  of  a 
magnetic  tape  to  a job. 

The  charging  algorithm  is: 

charge  for  magnetic  tapes  used  - Tt 

where  T is  the  total  number  of  occurrences  of  magnetic  tapes  onlined,  and 
t is  the  charge  per  online. 

2.1.3  Lineprinter  paper 

On  average,  approximately  50  boxes  of  lineprinter  paper  are  consumed  each 
fortnight  by  lineprinters  in  the  central  site  (including  the  Maths  7020).  One 
box  holds  2000  sheets  of  continuous  lineprinter  paper.  Because  of  the  increasing 
price  and  the  difficulty  in  obtaining  stocks  of  paper,  it  is  the  policy  of 
Computing  Division  to  control  the  demand.  The  correctness  of  this  policy  is 
confirmed  by  a recent  Defence  Council  Instruction  (T80/76)  which  requests  that 
"computer  users  should  ensure  that  their  use  of  continuous  stationery  for  printed 
output  is  kept  to  a minimum".  Hence,  a charge  is  levied  for  each  page  of  line- 
printer  paper  output  by  a job. 

The  charging  algorithm  is: 


charge,  per  user,  for  lineprinter  paper  - L? 

where  L ■ total  number  of  pages  output  on  the  central  site  lineprinters  (includ- 
ing the  Maths  7020)  by  the  user's  jobs, 

i ■ charge  per  page. 


'80 


In  time,  it  is  hoped  that  applications  which  consume  large  amounts  of  con- 
tinuous stationery  will  be  converted  to  using  COM  (computer  output  to  microfilm). 
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2 . 2 Distribution  of  charges 

The  values  of  the  charging  coefficients  for  the  various  algorithms  are 
derived  after  studying  the  performance  of  the  computer  under  normal  workloads  over 
a period  of  time.  The  study  determines:  the  sire  of  filestore  in  terms  of  number 
of  files  and  blocks,  average  connect  time  per  hour,  average  mill  time  at  various 
urgencies  per  hour,  numb  or  of  pages  of  lineprinter  paper  per  accounting  period, 
number  of  magnetic  tape  loadings. 

The  installation  manager  has  to  decide  how  to  weight  the  charges,  that  is, 
the  proportion  of  the  required  return  per  hour  to  be  contributed  by  each  item 
above . 

Computing  Division  has  chosen  tho  following  weightings: 


filestore  charges  59Z 
CPU  time  charges  20Z 
connect  time  charges  I OX 
lineprinter  paper  charges  1 OX 
magne tic  t ape  load  charges  1 X 


The  weighting  for  each  resource  reflects,  to  some  extent,  the  degree  of 
control  required  for  its  use.  The  relation  between  demand  and  available  supply, 
and  the  costs  of  increasing  the  supply  are  relevant  factors  in  the  consideration. 

Having  established  the  return  per  hour  required  and  the  distribution  of 
charges  then  it  is  possible  to  set  values  to  the  charging  coefficients.  A list 
of  charges  in  force  since  28  February  1977  is  given  in  Appendix  A. 

3 BASIC  ACCOUNT  INC  DATA 

In  this  section,  the  data  used  by  the  accounting  system  is  described. 

There  are  two  sources  of  data  used.  Firstly,  the  data  stored  in  the  JOURNAL 
files;  this  is  used  in  the  calculation  of  job  and  lineprinter  paper  charges. 
Secondly,  the  filestore  directory  files,  as  recorded  on  a ’dump'  tape;  this  is 
used  in  the  calculation  of  filestore  charges. 

3 . 1 Journal  dat a 

As  George  processes  jobs,  messages  of  various  types  are  sent  out  to  inform 
the  'outside  world'  of  certain  events  which  have  occurred.  In  this  Report,  only 
a brief  description  of  the  central  message  system  will  he  given  and  readers  are 
referred  to  the  George  3 and  4 Operational  Management  Manual**  for  a more  compre- 
hensive description.  However,  the  information  given  here  will  he  sufficient  for 
an  understanding  of  how  George  provides  data  tor  an  accounting  program. 
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An  'event'  message  may  fall  into  one  or  more  categories  in  the  sense  that 
it  may  be  sent  to  one  or  more  of  several  possible  destinations,  such  as  the  central 
console,  a MOP  console  or  a monitoring  file.  The  possible  destinations  of  each 
message  are  determined  by  certain  bits  being  set  in  a 'category'  word  which  is 
part  of  each  message;  hcvever,  the  message  may  not  actually  appear  at  a specified 
destination  because  a user  is  able  to  control  which  types  of  messages  are  sent 
to  his  monitoring  file  or  MOP  console  by  using  the  TRACE  or  REPORT  commands. 

The  category  that  is  of  particular  importance  to  the  accounting  program  is 
the  JOURNAL  category.  Messages  in  this  category  are  routed  to  the  current 
: JOURNAL . SJFILE . Each  SJFILE,  which  is  a basic  file,  holds  2000  to  3000  messages 
and  approximately  25  SJFILEs  are  filled  every  24  hours.  For  brevity,  the  series 
of  ’.JOURNAL. SJFILEs  will  be  often  referred  to  simply  as  the  Journal. 

There  are  several  hundred  message  types  in  the  internal  central  message 
directory  which  may  be  sent  out.  Each  message  has  a unique  message  identifier, 
eg  J0BT  identifies  the  'job  finished'  message,  and  a message  skeleton.  The 
message  skeleton  is  made  up  of  invariant  text  and  parameter  identifiers.  The 
form  of  the  parameter  identifiers  depends  on  whether  the  message  skeleton  is 
'unpacked'  or  'packed'. 

Unpacked  message  parameter  identifiers  consist  of  %A,  %B,  etc,  and  when  the 
message  is  assembled  for  output,  simple  parameter  substitution  takes  place, 
eg  the  message  skeleton  for  the  message  JOKAL  is 

OK:  YOUR  ALLOWANCE  IS  NOW  2A  : CONSUMEDZB  . 

Packed  message  parameter  identifiers  indicate  the  position  of  specific 
data  within  a message  and  each  is  followed  by  a character,  known  as  the  parameter 
description  character  (PDC) , from  the  ICL  1900  64  character  set,  indicating  the 
type  of  data  to  be  substituted.  Each  PDC  has  a name,  eg  PDC  8 has  the  name 
JOBTYPF.,  signifying  that  the  data  associated  with  PDC  8 indicates  the  type  of  job. 
Some  PDCs  simply  describe  the  type  of  quantity  they  refer  to,  eg  PDC  A has  the 
name  NUMA,  signifying  that  the  data  associated  with  this  PDC  is  a one-word  binary 
number.  A packed  message  is  indicated  by  bit  3 of  the  category  word  being  set. 

An  example  of  a packed  message  is  JTYPE,  sent  out  when  the  type  of  a job 
changes.  The  message  skeleton  is: 


XA2XB+J0BTYPE  IS  NOW  TC8ZD( .CONSOLE  PROPERTY :%D#ZE (, CLOCKED^.-  . 
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There  are  six  PDCs  in  this  message  and  they  are  2,+,8,(,#  and 


The  meaning  of  each  PDC  is  shown  in  the  following  table: 


PDC 

Name 

Data  format  and  meaning 

2 

TIMENOW 

1 word  binary;  time  expressed  as  the  number  of 
seconds  since  midnight 

+ 

JOBMILL 

1 word  binary;  cumulative  mill  time  for  this  job 
expressed  in  hundredths  of  seconds 

8 

JOBTYPE 

1 word  binary;  there  are  four  possible  values: 

0 for  a MOP  job;  1 for  a BACKGROUND  job; 

2 for  a remote  MOP  job;  3 for  a remote  job  entry  job 

( 

SKIP 

0 length;  indicating  that  the  following  part  of 
the  message  may  be  omitted 

# 

PROPS 

a variable  length  string  of  characters  indicating 
the  console  property 

- 

PROGMILL 

1 word  binary;  mill  time  clocked  so  far  by  program 
measured  in  hundredths  of  seconds 

Before  this  message  is  sent  out  by  George,  the  relevant  information  is  substituted 
for  the  par^.eters . 

Both  packed  and  unpacked  messages  may  be  rouced  to  the  Journal,  For  packed 
messages,  only  the  parameter  parts  of  the  messages  are  sent  out.  Any  program 
analysing  the  Journal  must  decode  the  message  by  consulting  a table  of  PDCs . 

The  format  of  a packed  message  as  written  to  the  Journal  is  as  follows: 

word  0 category  of  the  message 

word  1 job  number  if  the  message  related  to  a user's  job 

word  2 bits  0-11  message  number 

bits  12-23  number  of  PDCs  in  the  message 

word  3 onwards  string  of  PDCs  directly  followed  by  appropriate 
data  for  each  PDC  in  same  order  as  PDCs 

The  record  is  terminated  by  a checksum  word. 

As  an  example,  suppose  that  the  message 

STARTED  :PERFECAL,T-M47SM,  40CT76  11.51.02  TYPE  : BACK  U0.L0(*TR) 

is  sent  to  a monitoring  file.  The  message  would  be  in  the  following  packed  form 
when  sent  to  the  Journal: 


<2D@05MX1E0837 1 28-AEPERFECAL  T-M47SM  06V40:*F0001000000000002*TR  (LXV  . 


The  different  parts  of  the  message  may  he  interpreted  as  follows: 


word  0 


category  word  - '■21K3  which  has  the  bit  pattern 
00 1 1 000000 101001001 00000 


word  I 
word  2 

words  3,  A 

word  A onwards 


job  number  » 05MX  which  has  the  decimal  value  23AI6 

bits  0-11  message  number  - IE  which  has  the  decimal 
bits  12-23  number  of  PDCs  » 8 

the  actual  TOCs  "3,  7,  1,2,  8,-,  A and  E 

the  corresponding  data  for  each  PDC  as  shown  in  the 
following  table 


value  101 


PDC 

Name 

Value 

3 

USERNAME 

PERFECAL 

7 

J0BNAME 

T-MA7SM 

1 

DATEN0W 

06VA  (days),  tV  A OCT  76 

2 

TTMF.N0W 

0:*F  (seconds),  t't?  11.51.02 

8 

J0BTYPE 

0001,  i«?  BACKGROUND 

- 

GEOPER 

0000,  tV  UO  (geographical  peripheral 

identifier) 

A 

NUMA 

0000,  te  LO  (line  number) 

E 

VARCHAR 

*TR  (the  preceding  0002  is  the  count 
the  variable  length  string) 

of  words  in 

Following  is  a list  of  the  messages  (by  number)  which  are  used  by  the 
accounting  program  to  build-up  job  charge  records  and  lineprinter  paper  charge 
records . 

l'0C s used  by 
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ige  number 

Name 

Meaning 

the 

RAF 

account i ng 

program 

3 

RM  RE  ST  ART 

George  restart 

1 

A. 

7 

GREADY 

George  ready 

IA 

JDCHAN 

Date  change 

1 

15 

J CONTINUE 

Saved  job  continuing 

73 

JTYPE 

Job  type  changed 

2 

8 

80 

JLFC0MP 

Mat  file  completed 

B 

3 

7 

81 

JLFGANTDO 

l.istfile  interrupted 

B 

3 

7 

82 

M.VTF.RM 

hi st file  terminated 

B 

3 

7 

101 

ASTART 

Job  started 

1 

2 

3 7 8 

102 

JUSURG 

Urgency  used 

2 

♦ 

• 

103 

J0BT 

Job  finished 

■y 

4. 

♦ 

108 

JPER 

Peripheral  on-lined 

2 

? 

■HI 
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Readers  are  referred  to  the  George  3 and  4 Operation  Management  Manual^ 
for  the  full  list  of  PDCs  and  message  skeletons.  Note  that  messages  80,  81  and  82 
have  been  modified  by  RAE7  by  including  an  extra  PDC,  namely  NUMB,  which  gives  the 
number  of  pages  output  by  the  LISTFILE  command. 

3.2  Filestore  data 

As  described  in  section  2.1.1  users  are  charged  for  filestore  space  accord- 
ing to  the  number  and  size  of  terminal  files  they  own.  These  quantities  are 
continually  changing  throughout  the  day  as  jobs  are  run,  so  an  arbitrary  time  has 
to  be  chosen  and  the  charging  based  on  the  composition  of  filestore  at  that 
moment.  This  is  achieved  as  follows. 

Once  a day,  the  filestore  is  dumped  to  protect  it  in  the  event  of  hardware 
or  software  failures  corrupting  files.  The  files  dumped  are  the  directories, 
certain  system  files  and  all  terminal  files  marked  ' to-be -dumped ' by  George. 

The  dump  is  to  a magnetic  tape,  called  a dump  tape,  and  each  dumped  file  is 
stored  in  a subfile  on  the  tape.  Those  subfiles  containing  directory  files 
provide  the  source  data  for  filestore  charging.  Each  dump  of  filestore  is  known 
as  a dump  increment  and  identified  by  an  increment  number;  each  dump  tape  is 
identified  by  a tape  serial  number  (tsn). 

On  the  magnetic  tape  (the  dump  tape)  the  layout  of  data  is  as  follows: 

Header  label 

Start  of  increment  sentinel 
Increment  (composite  subfile) 

End  of  increment  subfile  (end  of  composite  file 
trailer  label) 

Each  sentinel  is  20  words  long.  Those  words  which  contain  information  used 
by  the  accounting  program  are  shown  below. 

Start  of  subfile  sentinel 

Value  Meaning 

6 start-of -subfile  sentinel 

local  name  of  file  or  directory 

increment  number  in  start-of-increment  sentinel 

username  if  file  dumped  is  a directory 


Word 

0 


19 


bit  0»1 


indicates  simple  or  composite  subfile  of  a directory 
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End  of  subfile  sentinel 


Word  Value  Meaning 

I #40000000  end  of  subfile  sentinel 

or 

#7  end  of  composite  file  trailer  label 

Directory  files 

Each  directory  file  contains  an  entry  for  each  file  owned  by  that  user. 

The  entry  consists  of 

the  name  record  (contains  general  information  about  the  file), 

the  blocks  record  (gives  the  disc  location  of  each  block  of  the  file), 

the  index  record  (if  an  indexed  file;  contains  search  key  information),  and 

the  traps  record  (lists  those  users  who  have  access  to  the  file  and  the 
type  of  access) 

Information  for  charging  is  extracted  from  the  name  record.  The  following 
shows  the  particular  words  of  the  name  record  which  contain  information  used  by 
the  accounting  program. 


Word 

Name 

Value  and  meaning 

0 

EREC 

Record  header,  always  has  the  value  41 

1 

ERES 

0,  to  indicate  this  is  a name  record 

2 

ESER 

The  tsn  of  a magnetic  tape,  otherwise  zero 

3 

EL0C1 

4 

EL0C2 

Local  name  of  the  file 

5 

EL0C3 

7 

EDEN 

Generation  number 

9 

EWRITDAY  Date  last  written  to 

13 

ELAN 

Language  code 

29 

EDLA 

Date  when  file  last  accessed 

37 

ECOl’S 

Value  of  bits  0-8  gives  the  number  of  blocks  in 
the  file.  Bit  23  - 1 indicates  that  file  is  on-line 

38 

EUSE  1 

39 

EUSE2 

1 Username  if  entrant  is  a directory,  otherwise  zero 

40 

EUSE  3 

This  information  is  sufficient  to  calculate  a filestore  charge  for  each 
directory . 

There  remains  just  one  more  problem.  Not  all  directories  are  associated 
with  proper  users;  many  are  associated  with  pseudo  users.  Therefore,  the  lowest 
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superior  proper  user  for  each  pseudo  user  must  be  found  before  the  users'  money 
budgets  are  updated.  This  is  achieved  by  using  the  information  in  the  file 
DICTIONARY  which  records  the  superior  user  of  each  user;  thus  the  whole  directory 
hierarchy  may  be  reconstructed  and  the  lowest  superior  proper  user  of  each  pseudo 
user  determined. 


4 THE  INTERFACE  WITH  THE  BUDGETARY  CONTROL  SCHEME 

The  accounts  interface  with  the  budgetary  control  scheme  is  shown  in  Fig  1. 

Each  accounting  program  generates  charge  records  which  are  accumulated  in 
files;  these  files  are  then  processed  at  the  end  of  the  accounting  period. 

Every  2 hours  the  job  accounting  program  calculates  job  charges  and 
updates  the  users'  budget  records  (see  Appendix  C)  in  the  file  DICTIONARY. 

Details  of  lineprinter  paper  used  are  accumulated  at  this  stage  ready  to  be  used 
as  data  for  the  lineprinter  paper  charging  program.  Each  day  filestore  charges 
are  calculated  and  each  week  the  lineprinter  paper  charging  program  is  run;  in 
both  cases  the  users'  budget  records  are  updated. 

At  the  end  of  the  accounting  period  the  following  processes  are  initiated: 

(i)  The  money  spent  by  each  user,  as  recorded  in  DICTIONARY,  is  read  and 
stored  in  a file  for  later  processing  by  the  budgetary  control  scheme 
programs . 

(ii)  Each  authorised  user  is  given  a fresh  allowance  of  money.  The  allowance 
for  each  user  is  calculated  by  the  budgetary  control  scheme  programs  based 
on  the  user's  past  spending  and  the  size  of  his  budget. 

(iii)  The  records  of  the  various  charges  are  sorted,  merged  and  listed  by  user- 
name  prior  to  distribution  to  departments. 

There  is  a two-week  delay  in  the  feedback  of  computed  allowances  from  the 
budgetary  control  scheme  because  of  the  time  required  to  process  the  accounting 
information  from  all  the  computers  in  the  scheme. 

5 ACCOUNTING  MACROS 

Each  macro  in  the  accounting  system  is  described  in  this  section. 

Each  description  of  j macro  includes: 

(i)  function 

(ii)  format 

(iii)  macro  parameters  (if  any) 

(iv)  program  parameters  (if  any) 
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(v)  execution 

(vi)  error  messages. 

Listings  of  the  macros  described  in  sections  5.1  to  5.18  appear  in 
Pigs  4 to  21.  These  listings  art*  of  the  macros  used  on  the  I906S.  The  macros 
used  on  the  I904A  have  the  same  nans*  but  there  are  slight  differences  within 
the  macros  themselves,  •*./  JAPEXPANDMAC  on  the  1906S  appends  to  a file  JAPJOBSI906S 
but  on  the  I904A  to  a file  called  JAPJ0BS1904A. 

Kig  2 shows  the  logical  position  of  each  macro  in  the  system.  Also  shown 
are  the  files  used  for  passing  data  from  one  macro  to  another.  The  interaction 
between  the  macros  will  become  apparent  in  the  description  of  the  macros  in  this 
section.  In  order  to  avoid  a mass  of  detail,  descriptions  of  intermediate  files, 
mainly  magnetic  tape  files,  have  been  omitted  as  they  are  only  of  interest  to 
the  programmer  setting  up  or  maintaining  the  system.  However,  it  is  worth  saying 
a little  about  the  sorting  keys  used. 

A major  part  of  the  processing  of  the  accounting  data  involves  the  sorting 

of  data  records  into  particular  groupings.  The  sorting  is  performed  by  the 

£ 

standard  ICL  sorting  programs  XSDA  and  XSDC  . Certain  items  of  data  in  a record 
are  chosen  as  sorting  keys  to  be  used  by  the  particular  sorting  program.  The 
P r i nc  i Pi  e keys  are: 

(i)  The  department  number.  This  is  an  arbitrary  number  chosen  to  designate  a 
particular  department.  A department  number  of  zero  is  given  to  those  records 
which  relate  to  non-department  users  such  as  DUMPER,  OPERATORS,  etc. 

(ii)  The  hierarchical  level  number.  This  number  is  in  the  range  0 to  3 where: 

0 refers  to  a non-department  user,  eg  :SYSTEM 

1 refers  to  a user  at  department  level,  eg  : MATHS 

2 refers  to  a user  at  a division  level,  eg  :MMI 

3 refers  to  a user  at  costcode  level  or  below,  eg  :MMII64  . 

(iii)  The  username. 

(iv)  The  record  type.  This  is  a number  which  identifies  the  type  of 
record . 

1 indicates  a job  charge  record, 

2 indicates  a filestore  charge  record,  and 

3 indicates  a paper  charge  record. 


(v) 

The  date 

(start 

date 

for  a 

job 

charge 

record) . 

(vi) 

The  t ime 

(start 

t ime 

for  a 

job 

charge 

record) . 

18 


Three  of  the  macros,  SJPROC,  LPCHARMAC  and  FSDICUPDATE  run  programs  which 
update  users'  budgets  held  in  the  file  called  DICTIONARY.  George  budgets 
(principally  the  MONEY  budget)  and  associated  George  commands  are  described  in 
Appendix  C. 

5.1  JAP JOB 

Function 

Controls  the  running  of  the  SJPROC  macro  (described  in  section  5.2). 

Format 

JAPJOB  a,b,c  . 

The  parameter  a is  mandatory  and  must  appear  as  the  first  parameter. 

Description  of  the  macro  parameters 

a the  time  interval,  in  minutes  between  successive 

runnings  of  the  SJPROC  macro 

b and  c parameters  for  the  SJPROC  macro,  see  section  5.2 
Execution 

Whenever  George  is  reloaded,  the  message  'PLEASE  ACTIVATE  JAPJOB  THANK  YOU' 
is  output  to  the  central  operator's  console  reminding  the  operator  to  initiate 
the  running  of  the  Journal  Accounting  Program.  The  operator  does  this  by 
invoking  the  JAPJOB  macro. 

The  macro  is  first  set  waiting  for  'a'  minutes,  then  it  issues  the  JAP 
contnand  with  parameters  b and  c . The  JAP  command  in  turn  issues  a RUNJOB 
command  as  follows: 

RUNJOB  JAJOBA,  .-JOURNAL, SJPROC, PARAM(b,c)  . 

The  macro  is  then  set  waiting  for  a further  'a'  minutes  before  reissuing  the 
RUNJOB  command. 

The  JAP  command  is  an  RAF,  modification  to  George  such  that  the  job, 

: JOURNAL. JAJOBA  issued  by  it,  is  given  the  classification  'system  issued', 
ie  it  will  run  as  a BACKGROUND  job  in  one  of  the  slots  reserved  for  system  jobs. 

The  JAP  command  and  the  JAPJOB  macro  were  written  by  Mr  M.J.D.  Thurston  of 
Mathematics  and  Computation  Department. 
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5.2  SJPROC 

Function 

This  macro  controls  the  running  of  the  Journal  Accounting  Program  (JAP) . 

The  input  is  the  series  of  :JODRNAL.SJFILEs  and  the  output  consists  of  records  of 
jobs  and  lineprinter  paper  usage.  During  the  course  of  each  run,  user  budget 
records  in  the  file  DICTIONARY  are  updated. 

Format 

SJPROC  SJFILE  a.RAEJAPREC  b . 

Both  parameters  are  optional  except  for  the  very  first  run  when  both  must 
be  given.  If  either  or  both  parameters  are  omitted  then  default  actions  are  taken. 

Description  of  the  macro  parameters 

a the  generation  number  of  the  first  SJFILE  which  is  to 

be  processed;  the  processing  will  then  continue  with 
SJFILE(a  + 1),  SJFILE (a  + 2)  and  so  on.  By  default, 
the  accounting  program  will  start  with  the  last  SJFILE 
being  processed  the  last  time  the  macro  was  run 

b the  generation  number  of  the  RAEJAPREC  file  which  is  to 

be  created  to  receive  job  and  lineprinter  paper  records 
output  by  the  JAP.  By  default,  the  JAP  will  output  to 
the  last  RAEJAPREC  file  opened  the  last  time  the  macro 
was  run 

Execution 

The  macro  first  checks  that  it  is  being  run  under  the  user  :JOURNAL,  with 
the  job  name  JAJOBA.  If  either  of  these  checks  fail  then  the  run  of  the  macro 
is  terminated.  These  precautions  are  to  ensure  that  SJPROC  is  never  run  along- 
side another  job  also  running  SJPROC;  if  this  should  happen,  users  would  be  in 
great  danger  of  being  charged  twice  for  their  work! 

The  macro  then  checks  the  parameters. 

If  both  parameters  are  given,  SJPROC  loads  a virgin  copy  of  the  program, 
namely  PROGRAM  A68R,  assigns  the  appropriate  SJFILE  and  RAEJAPREC  files  to  the  JAP, 
and  activates  the  JAP  which  proceeds  to  process  the  SJFILE  data. 

If  the  SJFILE  parameter  is  omitted,  then  PROGRAM  A68R  is  loaded  which  when 
activated  reads  an  'update'  record  in  the  DICTIONARY  file.  The  program  gets 
from  this  record  the  name  of  the  file  containing  the  last  version  of  the  Journal 
Accounting  Program,  eg  RAKJAPB IN( 3) . The  program  sends  a message  to  SJPROC  to 
load  the  program  which  when  loaded  and  activated  informs  the  macro,  via  a HALTED 
message,  of  the  SJFILE  to  be  used.  The  RAEJAPREC  file  requested  is  assigned,  the 
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program  will  then  start  processing  the  SJF1LE  data  after  skipping  the  records  in 
SJFILE  processed  last  time  the  macro  was  run. 

If  the  RAEJAPREC  parameter  is  omitted,  then  PROGRAM  A68R  is  loaded  which 
when  activated  reads  an  'update'  record  in  the  file  DICTIONARY.  Stored  in  this 
record  is  the  generation  number  of  the  RAEJAPREC  file  to  be  used  next.  This 
generation  number  is  passed  to  the  macro  via  a HALTED  message.  The  macro  then 
assigns  the  SJFILE  and  RAEJAPREC  files  and  begins  processing  the  SJFILE  data. 

If  both  parameters  are  omitted  then  PROGRAM  Ab8R  is  loaded  and  activated; 
it  then  reads  the  'update'  record  in  the  file  DICTIONARY,  informs  the  macro,  via 
a HALTED  message,  of  the  file  containing  the  program  to  be  loaded.  The  program 
is  then  loaded  and  informs  the  macro  via  HALTED  messages  which  SJFILE  and  RAEJAPREC 
files  are  to  be  used.  These  files  are  then  assigned  and  the  program  then  proceeds 
to  process  the  SJFILE  data  after  skipping  the  records  in  SJFILE  processed  last 
time  the  macro  was  run. 

Note  that  the  'update'  record  is  read  by  a special  extracode  peri  type  60 
mode  #76,  and  the  RAEJAPREC  files  are  created  under  the  pseudo  user  :JAPFILES. 

As  the  SJFILE  files  are  processed,  the  accounting  program  sends  job  and 
lineprinter  paper  usage  records  to  the  current  RAEJAPREC  file.  The  program  also 
accumulates  in  an  array  details  of  TIME  (at  different  urgencies)  and  MONEY  used 
by  each  job.  When  TIME  and  MONEY  details  for  approximately  25  jobs  have 
accumulated  then  it  is  time  to  update  users'  budgets  in  the  file  DICTIONARY. 

Before  this  is  done,  however,  the  program  is  stored  in  a file  called  RAEJAPBIN. 
Three  generations  (1,  2 and  3)  of  this  file  are  used  cyclically  and  the  next  one 
in  the  series  is  chosen.  The  current  RAEJAPREC  file  is  released  and  a new  file 
RAEJAPREC(+ I ) assigned. 

The  DICTIONARY  is  then  updated  with  the  accumulated  budget  data  using  the 
budget  extracode  type  60  mode  #77.  At  the  same  time  an  'update'  record  is  written 
to  the  DICTIONARY  file.  This  record  has  the  following  format: 

^ord  Contents 

0 record  header 

1 2 

2 *DPD 

3 ATE 

4 A68R  - name  of  program  creating  this  update  record 

5 1 - mark  nustoer  of  program 

6 time  in  seconds  since  midnight 
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Word  Contents 

7 date  as  days  since  31  DEC  1899 

8 unused 

9 unused 

10  unused 

1 1 unused 

12  RAEJ 

13  APB I 

14  N ( 

15  generation  number  of  RAEJAPBIN  containing  the  latest 
Journal  Accounting  Program 

16  ) 


Eventually,  the  accounting  program  catches  up  with  George,  ie  it  is  reading 
the  SJEILE  currently  being  written  to  by  George.  When  the  program  detects  that 
the  time  on  the  record  it  is  processing  is  about  10  minutes  or  less  behind  real 
time,  processing  of  the  current  SJFILE  is  terminated,  the  accounting  program  is 
stored  in  the  next  RAEJAPEIN  file,  the  current  RAEJAPREC  file  released,  the  users' 
budgets  finally  updated,  an  'update'  record  written  to  the  file  DICTIONARY  and 
then  the  program  and  macro  terminate. 


Note  that  each  RAEJAPREC  file  produced  has  the  ERASE  trap  closed.  This 
trap  on  each  RAEJAPREC  file  will  be  opened  subsequently  by  the  JAPEXPANDMAC 
macro. 

Errors 


Message 


Meaning 


WRONG  USER  OR  JOB  NAME 
NO  UPDATE  RECORD 


ERROR  IN  UPDATE  RECORD? 


THE  RAEJAPREC  REQUIRED 
NOT  KNOWN 

THE  SJFILE  REQUIRED  NOT 
KNOWN 

REQUEST  FOR  GEN  NO.  OF 
RAEJAPREC  NOT  MADE 

REQUEST  FOR  GEN  NO.  OF 
SJFILE  NOT  MADE 


Job  running  SJl’ROC  is  not  : JOURNAL. JAJOBA 

No  update  record  exists  in  DICTIONARY  with 
the  given  program  identification 

Expected  information  about  current  RAEJAPBIN 
file  is  not  in  the  update  record 

Program  failed  to  output  a message  specifying 
RAEJAPREC  file  to  be  assigned 

Program  failed  to  output  a message  specifying 
SJFILE  to  be  assigned 

Program  failed  to  output  a request  for 
generation  number  of  RAEJAPREC  to  be  used 

Program  failed  to  output  a request  for 
general  ion  number  of  SJFILE  to  be  used 


All  the  above  errors  will  cause  the  macro  to  be  terminated. 
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5 . 3 JAPF.XPAN DMAC 

Eune t ion 

This  macro  runs  a program  which  takes  as  input  the  records  in  the  series  of 
RAEJAPREC  files  produced  by  SJPROC.  These  records  are  expanded  and  separated  out 
into  job  and  lineprinter  paper  usage  records.  The  macro  is  generally  run  once 
a day. 

Format 

JAPEXPANDMAC  START  a,  END  b 

Both  parameters  are  optional  except  where  the  macro  is  run  for  the  very 
first  time;  on  that  occasion  the  START  a parameter  must  be  given.  If  either  or 
both  parameters  are  omitted  then  default  actions  are  taken. 

Description  of  the  macro  parameters 

a the  generation  number  of  the  RAEJAPREC  file  at 

which  processing  is  to  begin.  By  default,  the 
next  RAEJAPREC  file  due  to  be  processed  is 
chosen 

b the  generation  number  of  the  last  RAEJAPREC  file 

to  be  processed.  By  default,  processing  continues 
until  the  next-but-one  latest  generation  (not 
necessarily  the  highest)  of  RAEJAPREC  has  been 
processed 

Execution 

Initially,  the  macro,  which  runs  under  : JOURNAL,  must  determine  which 
RAEJAPREC  should  be  the  first  to  be  processed.  Either  the  START  a parameter 
is  given  or  else  the  information  is  acquired  by  loading  and  activating  the 
program  which  will  then  output  a HALTED  message  indicating  the  next  RAEJAPREC 
duo  to  be  processed.  A check  is  then  made  that  this  RAEJAPREC  is  suitable  for 
processing,  ic  it  must  not  be  the  latest  RAEJAPREC  file  (because  it  is  likely 
that  this  will  be  overwritten  by  the  next  SJPROC  run). 

Two  output  files,  JAPJOBS I906S  (or  JAPJOBS I 904A)  for  job  records  and 
TEMPJAl’LIST  for  lineprinter  paper  usage  records  are  assigned.  The  RAEJAPREC 
file  is  assigned  and  processing  commences;  the  records  in  RAEJAPREC  are  expanded 
and  appended  to  the  appropriate  output  files.  When  a RAEJAPREC  file  has  been 
processed,  the  next  generation  of  the  file  is  assigned  and  processing  continues. 

Processing  is  terminated  when  either,  the  last  RAEJAPREC  file  as  indicated 
hy  the  END  b parameter  has  been  processed,  or  when  the  next-but-one  latest 
RAEJAPREC  file  has  been  processed.  At  this  point,  the  generation  number  of  the 
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next  RAEJAPREC  file  is  preserved  in  the  program.  Listings  of  the  output  files 
are  produced. 

Note  that  the  RAEJAPREC  files  have  their  TRAP  settings  changed  alter  bei 
processed;  The  ERASE  trap  is  opened  and  the  READ  trap  closed. 

Errors 

Message  Meaning 

FGN  ZC  OUT  OF  RANGE  RAEJAPREC  generation  ZC  does  not  exist 

ERROR  IN  FGN  ZC  RAEJAPREC  generation  ZC  does  not  exist 

PROGRAM  ERROR  either,  program  failed  to  request  the 

generation  number  of  the  RAEJAPREC  file  to 
be  used  at  the  start  of  the  next  JAPKXPANDMAC 
run,  or  the  program  failed  to  halt  with  the 
'SAVE'  request 

All  three  of  the  above  errors  will  cause  the  macro  to  be  terminated. 

5 • 4 SC  AN  Dll  MI* 

Kune t ion 

This  macro,  invoked  by  the  operators  at  the  central  console  once  a day, 
runs  a program  which  performs  up  to  three  tasks  simultaneously.  Firstly,  the 
calculation  and  output  of  the  filestore  charges;  secondly,  the  listing  of  file 
not  accessed  within  a certain  time  period;  thirdly,  the  generation  of  a macro 
for  retrieving  files  in  the  event  of  a general  restore. 


Format 


SCANDUMP  TAPE  a,  INC  b,  ACCOUNT,  OLD  c,  JUG  d 


The  parameters  TAPE  a and  INC  b are  mandatory.  The  parameters  may 
be  given  in  any  order. 


Desc r iption  of  the  mac ro  parameters 


TAPE  a 
INC  b 

ACCOUNT 
OLD  c 

JUG  d 


a is  the  tsn  of  the  dump  tape  to  be  processed 

b is  the  number  of  the  increment  on  the  dump  tape 
which  is  to  he  processed 

indicates  that  filestore  charges  are  to  be  computed 

indicates  that  a list  of  files  not  accessed  in  the 
last  c days  is  to  be  output 

indicates  that  a macro  called  JUGGERNAUT  is  to  be 
generated  containing  RETRIEVE  commands  for  certain 
files  accessed  within  the  last  d days 
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Description  of  the  program  parameters 

The  file  ACCDATA  consists  of  one  line  containing  two  real  numbers 
separated  by  at  least  one  space;  the  first  number  is  the  charge  per  block  (in 
pence),  the  second  number  is  the  charge  per  file  (in  pence),  eg 

0.25  3.0 

Execution 

This  macro  is  invoked  by  the  operator  at  the  central  console,  it  in  turn 
issues  a RUNJOB  command  as  follows: 

RUNJOB  C-MOb-SCDiTMP  , ’.DUMPER , SCANDUMPJDF ,PARAM 
(parameters  as  for  SCANDDMP)  . 

SCANDUMPJDF  loads  an  imbedded  program,  which  when  activated  first  checks 
on  the  validity  of  the  increment  number  and  is n given.  It  does  this  by  scanning 
through  the  file  : SYSTEM. INCINDEX  for  the  increment  number.  Each  entry  in 
1NCINDEX  has  the  following  format  (only  those  words  of  interest  to  the  program 
are  shown): 

: SYSTEM. INCINDEX 

Format  of  entries: 

Word  Meaning 

0,1  red  tape 

2 increment  number 

3 increment  state  word 

12  number  of  magnetic  tapes  holding  copies  of  the 

increment 

13  tsn  of  the  first  magnetic  tape 

14  magnetic  tape  state  word  for  first  magnetic  tape 

15  tsn  of  second  magnetic  tape 

16  magnetic  tape  state  word  for  second  magnetic  tape 

and  so  on 


OS 


Increment  state  word 


""" 
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Bi  t Meaning 

0 increment  to  be  redumped 

1 end  of  batch  increment,  ie  one  in  which  the  end  of  filestore 
scan  was  reached  without  encountering  end-of-tape 

2 increment  marked  to  be  redumped  by  TTTP 

A increment  obsolete 

5 increment  not  suitable  for  retrieving  files. 

Magnetic  tape  state  word 

Bit  Meaning 

0 tape  failed  or  format  error 

4 tape  not  available 

When  the  entry  for  the  increment  is  found  in  INCINDEX,  the  tsn's  for  that 
increment  are  checked  for  the  tsn  given  as  a parameter  in  the  TAPE  a parameter. 

An  error  message  is  displayed  and  the  macro  abandoned  if  the  increment  is 
unsuitable,  or  if  the  dump  tape  is  corrupt,  unavailable  or  unsuitable. 

If  the  magnetic  tape  and  the  increment  number  specified  are  valid  then  the 
magnetic  tape  is  onlined,  the  program  scans  through  the  magnetic  tape  for  the 
start-of- increment  sentinel  for  the  particular  increment.  Once  the  increment  is 
found  then  the  dumped  directory  files  in  that  increment  are  processed. 

If  the  ACCOUNT  parameter  was  given,  then  the  program  totals  up  for  each 
directory  the  number  of  terminal  files  and  their  size.  When  the  end  of  each 
directory  subfile  is  reached  a charge  for  that  directory  is  calculated  and  the 
username  and  charge  are  recorded  in  an  array  for  later  processing. 

Note  that  certain  terminal  files  are  not  charged  for,  they  are  monitoring 
files  and  the  J0BL1ST  file. 

Towards  the  end  of  the  increment  is  the  subfile  containing  the  file 
DICTIONARY;  from  the  entries  in  DICTIONARY,  the  program  constructs  a table  in 
main  store  where  each  entry  consists  of  the  name  of  each  pseudo  user  against  the 
name  of  its  superior.  The  name  of  each  superior  user  in  the  table  is  then  com- 
pared against  each  pseudo  username  in  the  table  and  if  it  is  found  to  be  a pseudo 
user  itself  then  it  is  replaced  by  the  superior  username.  The  table  is  repeatedly 
scanned  in  this  way  until  the  entries  in  the  table  each  consist  of  the  name  of  a 
pseudo  user  against  the  name  of  its  lowest  superior  proper  user. 

The  usernames  in  the  filestore  charging  records  can  now  be  checked  against  the 
constructed  pseudo/proper  user  table  and  any  pseudo  user  replaced  by  proper  user 
names.  The  charge  records  are  then  output  to  a new  generation  of  the  file  VI  Id'Ll  ST. 
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If  the  OLD  c parameter  is  given;  then  as  each  directory  file  is  processed 
any  terminal  files  which  are  found  not  to  have  been  accessed  in  the  last  c days 
are  recorded.  The  following  information  is  produced  for  each  such  file;  file 
description,  date  when  file  written,  date  when  file  last  accessed,  and  the  size 
of  the  file.  For  each  directory,  the  total  number  of  files  not  accessed  in  the 
last  d days  and  their  total  size  are  given.  These  'old-file'  listings  are  then 
distributed  to  users  in  the  hope  that  they  will  be  encouraged  to  erase  unwanted 
files.  When  the  end  of  the  increment  is  reached  the  grand  total  of  'old'  files 
and  their  size  is  produced. 

If  the  JUG  parameter  is  given,  then  a macro  called  JUGGERNAUT  is  generated 
containing  a series  of  RETRIEVE  commands  for  files  which  fulfil  all  the  following 
conditions : 

(1)  is  online; 

(2)  has  been  accessed  within  the  last  d days; 

(3)  has  the  highest  generation  number  for  that  file  with  a particular 
language  code,  ie  if  FRED (8/MKP) , FRED(9/MKP) , FRED(9)  , FRED (9/MKQ) , and  FRED ( 1 0) 
were  all  online  and  accessed  within  the  last  p days,  then  FRED(9/MKP), 
FRED(9/MKQ)  and  FRED(IO)  would  be  chosen. 

It  must  be  said  that  this  facility  was  used  only  on  two  occasions  when  a 
general  restore  was  necessary  and  proved  to  be  a useful  first  step  in  the  design 
of  a more  efficient  strategy  for  the  retrieval  of  files  in  such  circumstances. 
This  particular  retrieve  facility  is  very  inefficient  because  the  RETRIEVE 
commands  are  not  sorted  according  to  location  of  files  on  dump  tapes,  hence  the 
system  quickly  becomes  clogged  with  RETRIEVE  commands  waiting  for  dump  tapes 
to  be  loaded  before  they  can  be  implemented.  A more  efficient  system  for  the 

retrieval  of  files  has  been  developed  by  the  Systems  Software  section  based  on 

software  produced  at  RSRE  Malvern  and  is  in  current  use. 


Errors 


Message 

INCORRECT  INCNO  AND  TSN 
COMBINATION 

INCNO  OK  BUT  TSN  WRONG 
INCNO  OK  INC  STATUS  WRONG 


Meaning 

tsn  incorrect  for  increment  number 
specified 

tsn  refers  to  an  unsuitable  magnetic 
tape,  eg  the  tape  may  be  unavailable 

specified  increment  exists  but  is  not 
suitable 


All  three  of  the  above  errors  will  cause  the  macro  to  be  terminated. 
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5.5  FSDICU  PDATF. 


Function 

The  macro  updates  users'  HONEY  budgets  according  to  the  filestore  charges 
computed  by  the  SC.ANDUMP  macro. 

Format 


FSDICbPDATE  *CR  file  description,  *LP  filename 

Botli  parameters  are  optional  and  may  be  omitted. 

Description  of  the  macro  parameters 

file  description  the  input  file  containing  the  filestore  charge 

records,  by  default,  the  file  used  is 
: DUMPER. FILEL 1ST 

filename  the  output  file  which  is  to  receive  records  indicat- 

ing success  or  otherwise  of  each  user's  budget 
update.  By  default  a workfile  is  created  to  receive 
the  output 

Execut ion 

This  macro  may  only  be  run  under  :MANAGER  because  of  the  special  budget 
extracodes  used,  ie  peri  type  60  and  modes  #40,  #41,  #50,  #51  and  #62. 

As  each  account  record  is  read  in,  the  user's  MONEY  budget  is  updated  and 
a record  produced  indicating  the  success  or  otherwise  of  the  update.  Records  of 
all  successful  updatings  are  appended  to  the  file  F1LERECS  for  processing  at  t ho 
end  of  the  accounting  period. 


The  following  is  a list  of  the  codes  used  which  indicate  the  result  of 
an  update  attempt: 


Code  Meaning 


OK 

a successful 

attempt  update 

-2 

the  user  is  a 

pseudo  user 

-4 

no  such  user 

ex is  ts 

-6 

budget  record  not  written  as 
DICTIONARY  would  oveiflow 

Errors 


Message 

NO 


Meaning 

command  error  on  attempt  to  open  the  file 
DICTIONARY 


DO 


DICTIONARY  almost  full! 


Both  the  above  errors  will  cause  the  macro  to  be  terminated. 

5.6  LPCHARMAC 

Function 

LPCHARMAC  calculates  lineprinter  paper  charges  and  then  updates  the  MONEY 
budgets  in  DICTIONARY.  The  macro  is  run  once  a week. 

Format 

LPCHARMAC  FIN 

The  parameter  FIN  is  optional. 

Description  of  the  macro  parameter 

FIN  indicates  that  the  lineprinter  paper  charging  run 
is  the  final  one  for  that  accounting  period 

Execution 

The  macro  run  under  : JOURNAL,  first  checks  for  the  existence  of  an 
LPCHARPROG  file.  If  one  exists  then  that  indicates  that  the  previous  run  of 
LPCHARMAC  failed  to  run  to  completion  possibly  due  to  a George  break.  If, 
however,  the  previous  LPCHARMAC  run  was  successful  then  the  macro  loads  a virgin 
copy  of  the  charging  program  which  takes  as  input  the  current  TEMPJAPLIST  file 
produced  by  JAPEXPANDMAC  runs.  Each  record  in  TEMPJAPLIST  consists  of  job 
identification  (username  etc)  and  the  number  of  pages  of  lineprinter  paper  a 
LISTFILE  issued  by  that  job  produced.  The  username  and  number  of  pages  are 
extracted  from  each  record  and  built-up  into  a list  of  usernames,  each  one 
followed  by  the  total  number  of  pages  of  lineprinter  paper  that  user  produced. 

Once  this  list  is  complete,  a charge  is  computed  for  each  user  and  the  updating 
of  MONEY  budgets  in  DICTIONARY  commences.  The  updating  is  done  by  the  special 
budget  extracode,  peri  type  60  mode  #77. 

The  program  is  so  written  that  each  time  the  peri  is  issued  a maximum  of 
25  MONEY  budgets  are  updated.  The  program  issues  successive  peris  of  this  type  for 
batches  of  up  to  25  users  until  all  the  chargeable  users'  budgets  have  been  updated. 

Before  each  update,  the  current  state  of  the  program  is  preserved  in  a new 
generation  of  a file  called  LPCHARPROG  and  a new  generation  of  the  file  PAPERCOST 
is  assigned.  Details  of  usernames  and  charges  are  written  to  the  PAPERCOST  files 
by  the  program. 

During  each  update  an  update  record  is  written  to  DICTIONARY  containing  the 
following  information: 


3 ATE 

A LP01  - name  of  program  creating 
this  update  record 

5 1 - mark  number  of  the  program 

6 time  in  seconds  since  midnight 

7 date  as  days  since  31  Dec  1899 

8 unused 

9 unused 

10  unused 

1 I unused 

1 2 LPCH 

13  ARPR 

IA  0G( 

15  generation  number  of  LPCHARPROC 
containing  latest  SAVEd  program 

16  ) 

When  all  the  updating  has  been  completed  then  a new  generation  of  the  file 
TEMPJAPLIST  is  created,  the  data  in  the  PAPERCOST  files  is  appended  to  the  file 
FORTPPERCOST  and  then  the  PAPERCOST  files  are  erased. 

If  the  FIN  parameter  was  given,  then  a new  generation  of  the  file 
FORTPPERCOST  is  created;  the  previous  generation  of  FORTPPERCOST  then  contains 
details  of  lineprinter  paper  charges  for  one  accounting  period.  Finally,  the 
LPCHARPROG  files  are  erased. 

If  at  the  start  of  the  macro  run  it  was  found  that  the  previous  LPCHARMAC 
run  had  not  run  to  completion  then  the  following  action  is  taken.  The  program 
in  LPCHARPROG  is  loaded  and  activated.  It  first  reads  (by  issuing  the  special 
extracode  type  60  mode  #76)  the  update  record  in  DICTIONARY  and,  from  the 
information  in  this  record,  informs  the  macro  via  a HALTED  message  of  the  file 
description  of  the  last  LPCHARPROG  file  into  which  the  charging  program  had  been 
preserved.  The  macro  then  loads  that  program,  activates  it,  and  the  program  and 
macro  continue  to  run  as  already  described. 
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Errors 


Message 


Meaning 


PROG  FAILED  IN  DICUPDATE 


PROG  FAILED  ?? 

PROG  FAILED  IN  SORTING 


program  failure  during  the  updating  of 
DICTIONARY  ( eg  a username  no  longer 
exists).  The  program  will  continue  to 
run 

unexpected  program  error  has  occurred. 
The  macro  is  terminated 

program  error  while  sorting  paper  charge 
data.  The  macro  is  terminated 


5.7  MTLIMITS 


Function 

The  principle  function  of  this  macro  is  to  generate  a macro  of  ALLOWANCE 
commands  based  on  the  output  from  the  budgetary  control  scheme.  This  generated 
macro  is  then  later  run  under  -.MANAGER  at  the  start  of  the  next  accounting  period 
to  replenish  users'  MONEY  allowances. 


Format 


MTLIMITS 


Description  of  the  program  parameters 
The  file  IMCSPAR9  - XSDA  parameters: 

KEY03 , ( 1 , 02A, 0002. 0;2,02A, 0003. 0;3,01A, 0004. 0,012)  , 
NUM0 1 , 

INP(A)MT , 

W0R01 (C)ED, 

W0R02(c)ED, 

0UT(B=B)MT , 

**** 


Execution 

The  macro  runs  under  -.ACCOUNTING,  runs  three  programs  which  will  now  be 
briefly  described. 

The  first  takes  as  input  computed  MONEY  allowances  from  the  file 
CC  ALLOWANCE  generated  by  the  budgetary  control  scheme  software.  The  principal 
output  is  to  a file  called  NEWALLOW  and  consists  of  a series  of  ALLOWANCE 
commands,  one  for  each  authorised  user.  Finally,  the  macro  NEWALLOW  is  copied  to 
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: MANAGER. IRENE. NEWALLOW.  The  secondary  output,  consisting  of  user  name  and 
allowance  data,  is  to  a magnetic  tape  file  MTALLOW. 

The  second  program  reads  the  MTALLOW  records  and  attaches  standard  sorting 
keys  to  each  record.  The  extended  records  are  written  to  a magnetic  tape  file 
KEYALLOW . 

The  third  program  is  the  standard  ICL  sorting  program,  XSDA,  run  under  the 
macro  XSDAMAC1 . XSDA  sorts  the  records  into  department,  division  and  user  name 
order,  according  to  the  parameters  in  the  file  IMCSPAR9 , and  outputs  the  sorted 
records  to  a magnetic  tape  file,  SORTKEYALLOW . SORTKEYALLOW  is  later  used  as 
input  to  RUNACCOUNTSA. 

Errors 

Message  Meaning 

M06A  FAILED  unexpected  program  error  occurred  in  the 
first  program 

M06B  FAILED  unexpected  program  error  occurred  in  the 
second  program 

XSDA  FAILED  the  type  of  error  is  defined  by  a 
message  output  by  XSDA 

All  three  of  the  above  errors  cause  the  macro  to  be  terminated. 

5.8  ENDFORTJOB 

Func  t ion 

This  macro  is  run,  under  : JOURNAL,  at  the  end  of  the  accounting  period  to 
complete  the  processing  of  job  records  and  do  the  final  charging  for  lineprinter 
paper  use. 

Format 

ENDFORTJOB 


Execution 

ENDFORTJOB  first  runs  JAPF.XPANDMAC . When  JAPEXPANDMAC  finishes,  a new 
generation  of  the  file  JAPJOBS 1906S  (or  JAPJOBS 1904A)  is  created  to  hold  the  job 
records  for  the  next  accounting  period. 

Finally,  LPCHARMAC  FIN  is  run;  this  performs  the  final  charging  for  line- 
printer  paper  for  the  current  accounting  period. 

Errors 

As  for  JAPEXPANDMAC  (section  5 . 3)  and  LPCHARMAC  (section  5.6). 
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5.9  ACCOUNTJOB 
Func t i on 

The  macro  has  two  main  functions.  The  first  is  to  collect  accounting  data 
from  the  DICTIONARY  file  and  reset  TIME  allowances.  The  second  is  to  give  fresh 
MONEY  allowances  to  each  authorised  user. 

Format 

ACCOUNT JOB 

Execut ion 

This  macro,  run  under  :MANACER  after  ENDFORTJOB  has  been  run,  is  the 
final  accounting  job  to  be  run  in  an  accounting  p e r i od . 

j ( The  macro  first  runs  the  standard  1CL  macro  ACCOUNT^  with  parameter  values 

as  follows: 

ACCOUNT  IMULTO.IDIVI ,LO,*LPIMCACCOUNT  . 

la 

IThe  ACCOUNT  macro  runs  a program,  XK7F,  which  reads  serially  through  the 
records  in  the  DICTIONARY  file  and  takes  the  following  actions  for  each  set  of 
budget  records  read: 

(i)  the  allowance  for  each  TIME  budget  is  set  equal  to  the  ration, 

(ii)  all  rations,  new  allowances  (if  any)  and  amounts  consumed  of  TIME 

and  MONEY  budgets  are  sent  to  a file  called  ACCOUNTLP, 

(iii)  the  amount  consumed  of  each  budget  type  is  reset  to  zero,  and 

(iv)  the  total  rations,  allowances  and  amounts  consumed  of  each  TIME  and 
MONEY  budget  for  all  users  are  sent  to  ACCOUNTLP. 

No  action  is  taken  on  SPACEMT  and  REALTIME  budgets  apart  from  their  values 
being  sent  to  ACCOUNTLP. 

When  the  DICTIONARY  has  been  processed  the  file  ACCOUNTLP  is  copied  to  the 
file  IMCACCOUNT  and  then  listed  and  erased. 

ACCOUNTJOB  makes  a further  back-up  copy  of  IMCACCOUNT  in  a new  generation 
of  the  file  BACKUP.  ACCOUNTJOB  then  creates  a new  generation  of  the  file 
KILERECS  ready  for  the  next  accounting  period's  filestore  charges. 

Finally,  the  macro  NEWALLOW  is  run.  This  macro  is  created  by  the  macro 
KTLIMITS  (see  section  5.7)  and  contains  a 'MONEY'  ALLOWANCE  command  for  each 
authorised  user;  thus  users'  MONEY  budgets  are  replenished. 
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When  ACCOUNTJOB  has  finished,  George  is  ready  to  accept  work  for  the  new 
accounting  period. 

Errors 

Refer  to  the  ICL  documentation^  for  the  ACCOUNT  macro. 

5.10  M06XMAC 
Function 

This  macro  creates  the  direct  access  file  DIVNAMES  and  stores  in  it  all  the 
division  names  with  their  corresponding  department  key  numbers.  The  macro  is  run 
only  when  it  is  necessary  to  create  or  update  DIVNAMES. 

Format 

M06XMAC 

Description  of  the  program  parameters 

The  file  IMCF0RTPAR1 . 

Each  line  has  the  following  format: 

columns  1-4  division  name  or  lodger  unit  code, 
eg  MM1  or  612,  left  justified 

columns  5-8  the  corresponding  department  key  number, 
right  justified 

The  final  line  is  followed  by  a line  with  asterisks  in  columns  1-4. 
Execution 

The  macro,  run  under  :ACCOUNTING,  creates  the  direct  access  file  DIVNAMES 
if  it  does  not  already  exist,  then  loads  a program  which  when  activated  reads 
the  parameters  from  IMCF0RTPAR1  and  sends  the  division  names  and  key  numbers 
without  further  processing  to  DIVNAMES. 

Errors 

Message  Meaning 

FAILED  an  unexpected  program  error  has  occurred, 
the  macro  is  terminated 

5.11  M06YMAC 
Function 

This  macro,  run  under  :ACCOUNTING,  creates  the  direct  access  file  DEPTNAMES 
and  stores  in  it  all  the  department  or  lodger  unit  names  with  their  corresponding 
key  numbers. 
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Forauit 


M06YMAC 


Description  of  the  program  Darameters 


The  file  IMCF0RTPAR2. 

Each  line  has  the  following  format: 

columns  1-12  department  or  lodger  unit  name,  left 
justified,  eg  RADIONAV 

columns  13-16  the  key  number  for  that  department  or 
lodger  unit,  right  justified 

The  final  line  is  followed  by  a line  with  asterisks  in  columns  1-4. 

Execut ion 

The  macro  creates  the  direct  access  file  DEPTNAMES  if  it  does  not  already 
exist,  then  loads  a program  which  when  activated  reads  the  parameters  from 
IMCF0RTPAR2  and  sends  them  without  further  processing  to  DEPTNAMES. 


Errors 


Message 


Meaning 


FAILED  an  unexpected  program  error  has  occurred, 
the  macro  is  terminated 


5.12  RUNACCOUNTSA 


Function 


The  macro  processes  the  file  : MANAGER. IRENE. IMCACCOUNT  produced  by  the 
ACCOUNT  macro  run  under  ACCOUNTJOB  (see  section  5.9).  The  output,  showing  user 
spending  in  the  last  accounting  period,  is  appended  to  similar  output  (on  magnetic 
tape)  for  previous  accounting  periods  in  the  quarter  and  will  be  later  used  in 
quarterly  accounting.  The  output  is  also  used  by  the  budgetary  control  scheme. 


Format 


RUNACCOUNTSA  a,  b,  AMEND 


The  parameters  are  in  fixed  positions.  Parameter  a may  be  null. 
Parameter  AMEND  is  optional  and  may  be  omitted. 
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Description  of  the  macro  parameters 


b 

AMEND 


the  tsn  of  the  magnetic  tape,  ACTSSUMRY06S  (or  ACTSSUMRY04A) 
produced  last  time  RUNACCOUNTSA  was  run.  By  default,  no 
input  magnetic  tape  required;  this  is  the  case  at  the  start 
of  each  quarter 

the  tsn  of  the  magnetic  tape,  ACTSSUMRY06S  (or  ACTSSUMRY04A) 
to  receive  output  from  this  run 

indicates  that  one  or  more  of  the  user  accounts  are  to  be 
amended,  the  amendments  being  input  from  the  file  IMCACCAMEND 


Description  of  the  program  parameters 
(a)  The  file  IMCACCARD 


Line  1 

columns  1-16 
columns  17-18 

Line  2 

columns  1-8 


dates  of  accounting  period  being  processed, 
eg  20/06/7701/07/77 

generation  number  of  the  input  magnetic  tape, 
right  justified,  eg  06 


date  of  Sunday  preceding  accounting  period, 
eg  19/06/77 


Line  3 

columns  1-2 


number  of  fields  to  be  read  from  following 
line (s) . 


The  fields  in  the  following  lines  determine  the  order  of  output  of 
department  spending  to  the  file  ACCCPO. 

Line  4,  etc 


columns  1-2 
colimns  3-4 
columns  5-6 
and  so  on 


key  number  of  first  department 
key  number  of  second  department 
key  number  of  third  department 


(b)  The  file  IMCACCAMEND 
Each  line 


amendments  to  user  accounts 


columns  1-12 
column  15 


user  name,  left  justified,  eg  MM1 164 

+ sign  or  - sign;  + means  add  to  and  - means 
subtract  from  the  user's  charge 
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column  16  £ sign  - optional 

columns  17-22  number  of  pounds  to  be  added  to  or 
subtracted  from  the  user's  account 

The  last  line  is  followed  by  a line  with  asterisks  in  columns  1-4. 
Note  that  the  user  names  must  be  given  in  ascending  department 
key  number  order  and  in  asceiding  alphanumeric  order  within  each 
department. 

(c)  The  file  IMCPAR4  - XSDA  parameters 

KEY04 , ( 1 ,02A,0002 .0 ; 2,02A,003 .0 ;3 ,0 1 A ,004 .0,012), 

KEY04 , (4,02A,0007 .0) , 

NUMOI , 

INP (A)MT , 

W0R01 (C)ED, 

W0R02(C)ED, 

0UT(B-B)MT, 

**** 

Execution 

The  macro  run  under  :ACCOUNTING,  runs  three  programs,  the  functions  of 
which  are  now  briefly  described. 

The  first  takes  as  input  the  file  : MANAGER. IRENE. IMCACCOUNT;  each  record 
read  from  this  file  is  subsequently  prefixed  by  sorting  keys  before  being  sent  to 
a magnetic  tape  file,  IMC4AACTS. 

The  records  in  IMC4AACTS  are  then  sorted  into  department,  division  and 
username  order,  according  to  the  parameters  in  the  file  IMCPAR4,  by  the  second 
program,  the  standard  ICL  sorting  program  XSDA,  run  by  the  macro  XSDAMAC1 . The 
sorted  records  are  sent  to  the  magnetic  tape  file  IMCSORTACTS. 

The  third  program  is  then  run.  This  first  of  all  copies  the  data  from  the 
input  magnetic  tape  (if  any)  to  the  output  magnetic  tape,  then  processes  the  file 
IMCSORTACTS  as  follows.  The  accounts  records,  in  their  department  groupings, 
are  sent  to  the  lineprinter  file  IMCACCLIST,  the  money  spent  per  user  being 
modified  when  necessary  by  -mendments  read  from  the  file  1MCACCAMEND . The  new 
money  allowances,  read  from  the  magnetic  tape  file  SORTKFYALLOW,  are  inserted  in 
the  account  records  prior  to  output.  For  each  user,  a record  is  written  to  the 
output  magnetic  tape,  also  called  ACTSSUMRY06S  (or  ACTSSUMRY04A)  but  with  a 
generation  number  one  higher  than  the  input  magnetic  tape,  recording  the  money 
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spent  in  the  last  accounting  period.  Total  mill  used  and  money  spent  by  each 
department  is  sent  to  a file  IMCACCSUMA  and  to  a file  ACCCPO  which  is  later  used 
in  performance  analysis. 

As  an  example,  part  of  a listing  of  the  file  IMCACCLIST  appears  in  Fig  22 
and  a listing  of  the  file  IMCACCSUMA  appears  in  Fig  23. 


Errors 


Message 
M06M  FAILED 

M06N  FAILED 

XSDA  FAILED 

B NOT  SET 


Meaning 

an  unexpected  program  error  has  occurred  in  the 
first  program 

an  unexpected  program  error  has  occurred  in  the 
third  program 

the  type  of  error  is  defined  by  a message  output 
by  XSDA 

tsn  for  the  output  magnetic  tape  not  given 


All  of  the  above  errors  will  cause  the  macro  to  be  terminated. 
5.13  FORTPAPERMAC 


Funct ion 

This  macro  takes  as  input  the  lineprinter  paper  charge  records  in 
: JAPFILES . FORTPPERCOST  and  sorts  them  into  department  and  username  order  ready 
for  use  by  NEWJAPJOBS  (see  section  5.15). 


Format 


FORTPAPERMAC 


Des cription  of  t he  program  parameters 

The  file  FM06AS0RTPAR  - XSDA  parameters. 

KEYO 1 ( 1 , 1A,2  .0, 1 2) , 
NUMO 1 , 

INP(A)MT, 

W0R01 (C)ED, 

W0R02 (C)ED , 

OUT (B=B)MT , 

■k'k-k'k 


Fxecut ion 

The  macro,  run  under  :ACCOUNTING,  runs  three  programs  the  functions  of  which 
are  now  briefly  described. 
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The  first  program  takes  as  input  each  charge  record  in  FORTPPERCOST  and 
sends  it  to  a magnetic  tape  file,  PAPERRECS , prior  to  sorting. 

The  second  program  is  the  standard  ICL  sort  program  XSDA,  run  under  the  ICL 
macro  XSDAMAC1 . This  sorts  the  records  according  to  username,  using  the  para- 
meters in  the  file  FM06AS0RTPAR,  and  sends  the  sorted  records  to  the  magnetic 
tape  file  SORTPAPRRECS . 

The  third  program  reads  the  charge  records  from  SORTPAPRRECS  and  sends  one 
charge  record  (prefixed  by  the  appropriate  sorting  keys)  per  user  to  the  magnetic 
tape  file  PAPPROCRECS. 

This  final  magnetic  tape  file  will  later  be  used  by  NEWJAPJOBS  when  the 
charge  records  will  be  sorted  and  merged  with  other  types  of  charge  records. 


Errors 


Message 


Meaning 


M06A  FAILED  ] 
MO 6 A FAILED  2 
M06B  FAILED 

XSDA  FAILED 


unexpected  program  error  has  occurred  in  first 
program  - macro  terminated 

unexpected  program  error  has  occurred  in  the 
third  program  - macro  terminated 

the  type  of  error  is  defined  by  a message  output 
by  XSDA 


All  of  the  above  errors  will  cause  the  macro  to  be  terminated. 


5. U FILEACC 
Function 

This  macro  produces  a listing  showing  spending  on  filestore  by  each  user 
and  each  department  in  an  accounting  period.  A magnetic  tape  file  is  also 
produced  containing  records  of  filestore  spending  to  be  used  by  NEWJAPJOBS 
(see  section  5.15). 

Format 

FILEACC 

Description  of  the  program  parameters 
(a)  The  file  IMCACCARD 
Line  I 


columns  1-16 


dates  of  accounting  period  being  processed, 
eg  20/06/7701/07/77 
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(b)  The  file  IMCSPARI  - XSDA  parameters 

KEYOI ( 1 ,02A,0007 .0) , 

NUMOl , 

INP(A)MT, 

WOROl (C)ED, 

WOR02(C)ED, 

OUT(B=B)MT, 

Jckick 

(c)  The  file  IMCSPAR3  ~ XSDA  parameters 

KEY07 , ( 1 ,01 A,0002 .0 ,0 1 2; 2 ,0 1 A, 000 7 . 2 ,002; 3 ,0  I A, 0006 .3,002) , 

KEY07, (4, 01 A, 0006. 0,002; 5, 01 A, 12. 0,2; 6, 01 A, 12. 3, 2), 

KEY07, (7, 01A, 13.2,2), 

NUMO 1 , 

INP (A)MT , 

WOROl (C)ED, 

W0R02(C)ED, 

OUT(B=B)MT, 

**** 

Execution 

The  macro  run  under  :ACCOUNTING,  runs  six  programs  which  are  now  briefly 
described . 

The  first  program  reads  the  filestore  charge  records  from  the  file  called 
: MANAGER. IRENE. FILE RECS  filled  during  the  last  accounting  period  and  writes  them 
to  a magnetic  tape  file  FSCHRECS. 

The  second  program  is  the  standard  ICL  sorting  program  XSDA,  run  under  the 
macro  XSDAMAC1.  This  sorts  the  records  from  FSCHRECS  according  to  username, 
using  the  parameters  in  the  file  IMCSPAR3,  and  sends  the  sorted  records  to 
FSCHSORTRECS . 

The  third  program  reads  the  records  from  FSCHSORTRECS,  totals  the  filestore 
spend  for  each  user  and  sends  one  record  per  user  to  the  magnetic  tape  file 
FSCHNEWREC.  Before  these  records  are  sent  the  department  number  is  attached  to 
each  record  as  the  sorting  key. 

The  fourth  program  XSDA  sorts  the  records  in  FSCHNEWREC  into  department  and 
user  name  order,  using  the  parameters  in  the  file  IMCSPARI , and  sends  the  sorted 
records  to  FSCHNEWSORT . 
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The  fifth  program  reads  the  records  from  FSCHNEWSORT  and  sends  them,  with 
appropriate  headings  and  also  with  total  spending  on  filestore  output  for  each 
department,  to  the  file  IMCFSLP. 

The  sixth  program  reads  the  records  from  FSCHSORTRECS , and  for  each  user 
writes  to  the  magnetic,  tape  file,  FSCHPROCRECS , one  record  summarising  spending 
by  that  user  and  his  pseudo  user  inferiors  for  each  working  day  throughout  the 
accounting  period.  Each  record  produced  has  attached  to  it  standard  sorting  keys. 
The  file  FSCHPROCRECS  is  later  used  by  the  macro  NEWJAPJOBS  (see  section  5.15). 

Part  of  a listing  of  the  file  IMCFSLP  appears  in  Fig  24  as  an  example. 


Errors 


Message 


M06R  FAILED  1 
M06R  FAILED  2 
M06S  FAILED 


M06T  FAILED 


M06S(/MK01) FAILED 


XSDA  FAILED 


Meaning 


unexpected  program  error  occurred  in  the  first 
program 

unexpected  program  error  occurred  in  the  third 
program 

unexpected  program  error  occurred  in  the  fifth 
program 

unexpected  program  error  occurred  in  the  sixth 
program 

the  type  of  error  is  defined  by  a message  output 
by  XSDA 


The  macro  is  terminated  if  any  of  the  above  errors  is  encountered. 

5.15  NEWJAPJOBS 
Function 

This  macro  sorts  and  merges  together  the  job  charge  records  in  JAPJOBS1906S 
(or  JAPJOBS 1 904A) , the  filestore  charge  records  in  FSCHPROCRECS  and  the  paper 
charge  records  in  PAPPROCRECS.  A listing  is  finally  produced  showing  the  pattern 
of  spending  by  each  user  throughout  an  accounting  period. 


Format 


NEWJAPJOBS  a,b  . 


The  parameter  a is  mandatory. 


Description  of  the  macro  parameter 


generation  number  of  the  JAPJOBS1906S 
(or  JAPJOBS 1904A)  to  be  processed  first 

generation  number  of  the  JAPJOBS 1906S 
(or  JAPJOBS 1 904A)  to  be  processed  last 
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Description  of  the  program  parameters 
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(a)  The  file  IMCACCARD 
Line  1 

columns  1-16  dates  of  accounting  period  being  processed, 

eg  20/06/7701/07/77 

(b)  The  file  IMCSPAR2JAP  - XSDC  parameters 

XSDC,KEY07 ( 1 ,0 1 A, 0004 .0 ,0 1 2 ; 2 ,0 1 A ,1 1 . 2 ,002 ; 3 ,0 1 A ,00 1 0 . 3 ,002) , 
XSDC,KEY07(4, 01  A, 00 10. 0,002; 5, 01  A, 00 14 .0,002; 6, 01  A, 00 14 .3,002) , 
XSDC, KEY07( 7, 0IA, 00 15. 2, 00 2) , 

XSDC.NUM01 , 

XSDC, INP( FORT J0BRECS)MT, 

XSDC.WOROl (SCRATCH  FILE) (8000), 

XSDC, WORO 2 (SCRATCH  FILE) (8000), 

XSDC , OUT( SORTFORTRECS ) MT , 

XSDC, 

**** 

(c)  The  file  FICHESORTPAR  - XSDC  parameters 

XSDC, KEY  1 0(0, 2A, 2.0; I , 2A, 3 .0 ; 2 , 1 A, 7 .0 , 1 2) , 

XSDC , KEY 10(3,2A,4.0;4,1A,14.2,2;5,1A,13.3,2) , 

XSDC, KEY  10(6,1  A, 13. 0,2; 7,1 A, 17. 0,2; 8,1  A, 17. 3, 2) , 

XSDC, KEY10(9, 1A, 18.2,2) , 

XSDC.NUM03, 

XSDC,INP(FSCHPROCRECS)MT , 

XSDC , INP ( J0BPR0CRECS)MT , 

XSDC , INP ( PAPPROCRECS )MT , 

XSDC, WORO I (SCRATCH  FILE1(8000), 

XSDC, W0R02 (SCRATCH  FILE) (8000) , 

XSDC , OUT (MAINFICHRECS=MA1NFICHRECS)MT , 

XSDC, 

-k’k-k'k 


Execu  t i on 

The  macro,  run  under  :ACCOUNTING,  runs  five  programs  which  are  now  briefly 
described . 

The  first  program  reads  the  records  from  the  series  of  JAPJ0BS1906S 
(or  JAPJOBS 1 904A)  files  for  the  accounting  period,  starting  with  the  file  with  the 
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generation  number  a . Th?  final  file  for  the  accounting  period  is  terminated 
by  a record  with  asterisks  in  columns  1 to  4 . The  job  records  are  written  to  a 
magnetic  tape  FORTJOBRECS. 

The  second  program  is  XSDC , a standard  ICL  sorting  program.  This  program 
reads  and  sorts  the  job  records  f.rom  FORTJOBRECS  into  username,  start  date  and 
start  time  order,  using  the  parameters  in  the  file  IMCSPAR2JAP.  These  sorted 
records  are  then  sent  to  the  magnetic  tape  SORTFORTRECS . 

The  third  program  reads  the  sorted  job  records  from  SORTFORTRECS  and 
attaches  to  each  record  standard  sorting  keys,  ie  keys  to  identify  department, 
record  type  number,  etc.  These  enlarged  records  are  written  to  the  magnetic 
tape  JOBPROCRECS . 

The  fourth  program,  XSDC,  sorts  and  merges  the  job  charge  records  from 
JOBPROCRECS,  the  filestore  charge  records  from  FSCHPROCRECS  and  the  paper  charge 
records,  using  the  parameters  in  the  file  FICHESORTPAR , from  PAPPROCRECS.  The 
sorted  records  are  sent  to  the  magnetic  tape  MAINF1CHRECS . The  records  are 
sorted  in  order  of  department,  division,  username,  record  type,  start  date  and 
start  time. 


The  fifth  program  reads  the  records  from  MAINFICHRECS  and  writes  them,  with 
appropriate  headings  and  sub-totals  of  CPU  time  and  charges,  to  the  file  JOBLP. 
JOBLP  is  then  listed  and  these  listings  subsequently  distributed  to  users.  The 
file  JOBLP  then  goes  through  a process'*  which  results  in  the  accounts  information 
being  produced  on  microfiche. 

Part  of  a listing  of  the  file  JOBLP  appears  in  Fig  25  as  an  example. 

Errors 


Message 


Meaning 


M062  FAILED  1 | 

M062  FAILED  2 J 
M53P  FAILED 
XSDC  ERROR  IN  LOADING 
XSDC  - UNEXPECTED  EVENT 

M0f>2  FAILED 


execution  error  occurred  in  the  first 
program 

execution  error  in  third  program 

XSDC  failed  to  load  - corrupt  program? 

failure  defined  by  an  error  code  output 
by  XSDC 

execution  error  in  the  fifth  program 


All  of  the  above  errors  will  cause  the  macro  to  be  terminated. 


5.16  QUARTACC 
Function 

This  macro  takes  as  input  the  final  ACTSSUMRY06S  (or  ACTSSUMRY04A) 
magnetic  tape  produced  in  a quarter  and  produces  a listing  showing  for  each  user 
the  total  money  spent  throughout  a quarter. 

Format 

QUARTACC  a 

Parameter  a is  mandatory. 

Description  of  the  macro  parameter 

a the  tsn  of  the  final  ACTSSUMRY06S  (or  ACTSSUMRY04A) 

produced  in  a quarter 

Description  of  the  program  parameters 

(a)  The  file  QDATE 
Line  1 

columns  1-16  dates  of  the  quarter  being  processed  in  the 
form  dd/mm/yy,  eg  28/03/7701/07/77 

Lines  2-8 

columns  1-16  dates  of  each  accounting  period  in  the  quarter, 
in  the  form  dd/mm/yy 

NB:  If  there  are  only  six  accounting  periods  in  a quarter,  then 
line  7 is  left  blank. 

(b)  The  file  IMCSPAR8  - XSDA  parameters 

KEY03( 1 ,02A,00 1 1 .0 ; 2 ,02A ,00 1 2 .0 ;3 ,01  A, 0006 .0 ,0 1 2) , 

NUM01 , 

INP(A)MT , 

W0R01 (C)ED, 

W0R02 (C)ED , 

0UT(B=B)MT, 

**** 

Execution 

The  macro,  run  under  :ACC0UNTING,  runs  three  programs  which  will  be  briefly 
described . 
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The  first  program  reads  the  account  records  from  ACTSSUMRY06S 
(or  ACTSSUMRY04A)  and  attaches  sorting  keys  to  each  record.  These  enlarged 
records  are  then  sent  to  a magnetic  tape  file  NEW  SUMMARY  prior  to  sorting. 

The  second  program  run  is  the  standard  ICL  sorting  program  XSDA  run  under 
macro  XSDAMAC1.  This  program  sorts  the  records  into  department  groupings, 
according  to  the  parameters  in  the  file  1MCSPAR8,  the  sorted  records  being  then 
sent  to  the  magnetic  tape  file  IMCS0RT1. 

The  third  program  then  reads  the  sorted  records  and  produces  a listing 
for  each  department  showing: 

(a)  total  money  spent  by  each  user  per  accounting  period  and  for  the 
quarter,  and 

(b)  grand  totals  of  money  spent  by  all  users  in  that  department  per 
accounting  period  and  for  the  quarter. 

Part  of  this  listing  is  shown  in  Fig  26  as  an  example. 


Errors 
Message 
M068  FAILED 

M069  FAILED 

XSDA  FAILED 


Meaning 

unexpected  program  error  occurred  in  the  first 
program 

unexpected  program  error  occurred  in  the  third 
program 

the  type  of  error  is  defined  by  a message  output 
by  XSDA 


The  macro  is  terminated  if  any  of  the  above  three  errors  is  encountered. 


5.17  QUARTUPDATE 
Function 

This  macro  appends  the  latest  quarterly  accounts  to  a magnetic  tape  file 
containing  the  past  quarters'  account  records  for  the  current  calendar  year. 

Format 

QUARTUPDATE  a 

Parameter  a is  mandatory. 

Description  of  the  macro  parameter 


a 


the  generation  number  of  the  magnetic  tape  file 
SUMMARY1906S  (or  SUMMARY  1 904A)  containing  past 
quarters'  account  records 
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Description  of  the  program  parameter 


The  file  QUARTGEN 

Line  I 

columns  1-4  generation  number  of  the  input  SUMMARY I90SS 
(or  SUMMARY’ 1 904A)  file,  right  justified 

F.xecut  ion 

The  macro,  run  under  : ACCOUNTING,  runs  a program  which  copies  the  contents 
of  SUMMARY1906S  (or  SUMMARY  1 904A) , generation  a , to  a newly  created  magnetic 
tape  file  SUMMARYI906S  (or  SUMMARY  1 904A) , generation  a + 1 , and  then  appends 
the  latest  quarter's  account  records  to  it. 

If  a has  the  value  0,  then  this  indicates  that  there  are  no  previous 
quarterly  accounts  to  be  copied,  ie  if  January  to  March  quarterly  accounting  is 
being  done. 

Errors 

Message  Meani ng 

M066  FAILED  program  error 

XA  NOT  SET  parameter  omitted 

The  macro  is  terminated  if  either  of  the  above  errors  is  encountered. 

5.18  QUARTCOPY 

Function 

This  macro  makes  a copy  on  a magnetic  tape  of  the  file  SUMMARY  1 906S 
(or  SUMMARY I904A)  produced  by  QUARTUPDATE  (see  section  5.17).  This  is  purely  a 
safety  measure  to  protect  the  quarterly  accounts  in  the  event  of  the  laicsi 
SUMMARY 1906S  (or  SUMMARY 1904A)  file  being  lost  or  corrupt. 

Format 

QUARTCOPY  a ,b 

Both  parameters  are  mandatory. 

Description  of  the  macro  parameters 

a the  tsn  of  the  magnetic  tape  to  receive  the  output 

b the  generation  number  of  the  SUMMARY  1 906S 

(or  SUMMARY  I d04A)  file  to  be  copied 
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Execution 

This  macro,  run  under  :ACC0l'NT INC , runs  a program  which  copies  the  contents 
of  the  specified  SUMMARY ) 90bS  (or  SUMMARY  1 904A)  file  to  the  specified  magnetic 
tape . 

Errors 


Message  Meaning 

M065  FAILED  program  error 

ZA  NOT  SET  tsn  parameter  null 

ZB  NOT  SET  generation  number  of  SUMMARY 1906S 

(or  SUMMARY  1 904A)  omitted 

6 CONCLUSION 

This  Report  describes  the  mechanisms  and  software  for  accounting  computer 
resources  under  the  George  3 and  4 operating  systems.  It  is  expected  that  the 
general  reader  will  find  it  sufficient  to  read  through  the  first  three  sections 
only  in  order  to  acquire  a general  understanding  of  the  accounting  system. 
Sections  4 and  5 will  mainly  be  of  interest  to  those  directly  involved  in  the 
maintenance  and  operation  of  the  system. 

Although  the  accounting  system  is  relatively  complex  and  processes  large 
amounts  of  data  per  day,  it  imposes  a minimal  overhead  on  the  normal  workload  on 
each  computer.  It  can  be  regarded,  therefore,  as  a most  economical  method  of 
monitoring  the  use  of  the  computers.  The  accounts  provide  a firm  basis  for 
resource  management  and  together  with  other  data  produced  by  the  accounts  suite 
they  provide  valuable  data  for  performance  analysis. 
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Appendix  A 
CHARGING  ALGORITHMS 

The  charging  algorithms  are  summarised  below: 
Job  charging 

The  charge  per  job  is  given  by: 


r— » M C 

u»A 


♦ 


Ee  + Tl 
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where  M 

u 

C 

u 

i 

i 

E 

e 

T 

C 


total  number  of  seconds  of  CPU  time  clocked  at  urgency  u 
charge  per  second  of  CPU  time  at  that  urgency 

1 if  the  job  started  in  the  period  08.00.00  to  17.59.59 

2 if  the  job  started  in  the  periixi  18.00.00  to  17.54.59  (next  day) 
the  total  connect  time  in  minutes 

the  charge  per  minute  of  connect  time 
the  total  number  of  magnetic  tape  on-lines 
the  charge  per  magnetic  tape  on-line 


Current  charges 
For  CPU  time 


The  value  of  C 

u 

following  algorithm: 


1904A 

I906S 

CJ  - 

l.7p 

8p 

CM  ‘ 

1 .4p 

6p 

C0  Hnd  C7  “ 

1 .Op 

3p 

for  other  urgency  levels  is  worked  out  according  to  the 
factor  x(27  - a) 


where  factor 


I9Q4A 

0.001 


I9Q6S 

0.0043 


{I  for  urgency  A 
2 for  urgency  R,  etc 


For  connect  time 


t 


'•P 


for  1404A  and  !90bS  . 


>'  ■ 
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For  magnetic  tape  on-lines 


40p 


for  I904A  and  I906S 


NB:  There  is  a minimum  charge  of  £1  per  job. 
Daily  filestore  charging 
The  charge  per  directory  is  given  by 


Nn  ♦ Ss 


where  N - total  number  of  terminal  files  in  the  directory 
n - charge  per  file 

b " total  size  of  all  terminal  files  in  the  directory 
s = charge  per  block. 


Current  charges 


3p 

0 . 25p 


for  1904A  and  1906S 
for  I904A  and  I906S  . 


NB:  There  is  a minimum  charge  of  £1  per  directory  for  each  directory  containing 
at  least  one  terminal  file. 

Linepr inter  paper  charging 

The  charge  per  user  is  given  by 


where  L - total  number  of  pages  output  by  LISTFILEs  either  at  the  central  site 
or  at  the  Maths  7020 

i " charge  per  page. 

Current  charges 


« ■ 7p  for  I904A  and  1906S 


NB:  There  is  no  minimum  charge. 
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FILESTORE 

Every  file  in  filestore  is  owned  by  a 'user'  who  has  a unique  username. 

The  user  may  be  a 'proper'  user,  ie  a user  with  its  own  budgets,  or  a 'pseudo' 
user,  ie  a user  who  has  no  budgets  or  privileges  of  its  own  but  shares  those  of 
a proper  user. 

The  details  of  a user's  files  are  recorded  in  the  directory  file  associated 
with  the  usern.ane.  A user  may  own  two  types  of  files,  terminal  files  (containing 
programs,  data  or  George  commands)  and  directory  files,  each  directory  file  being 
associated  with  a proper  or  a pseudo  user.  These  inferior  users  may  in  turn  own 
terminal  files  and  further  directory  files,  thus  an  hierarchical  structure  is 
built  up. 

Fig  3 shows  part  of  the  filestore  structure  as  implemented  at  RAE . At 
the  top  of  the  hierarchy  is  the  user  :MASTER  who  is  superior  to  the  users 
.'SYSTEM  and  :MANAGER.  :SYSTEM  and  all  its  inferiors  are  concerned  solely  with 
the  operational  aspects  of  George,  eg  dumping  files. 

The  structure  under  :MANAGER  reflects  the  organisation  of  RAE  departments. 
The  usernames  in  this  part  of  filestore  are  based  on  department  or  division 
names  or  on  RAE  costcodes.  Each  costcode  relates  to  a particular  project.  The 
only  jobs  which  may  be  run  at  department  or  division  level  are  administrative  job 
eg  jobs  transferring  budgets.  Development  and  production  jobs  are  run  at  cost- 
code  level  or  below. 

The  hierarchical  structure  can  also  be  regarded  as  a 'management'  structure 
All  users  are  ultimately  under  the  control  of  :MANAGER  and  at  lower  levels  under 
the  control  of  their  immediate  superiors,  eg  a user  at  division  level  is  able  to 
change  the  budgets  of  an  inferior  user  at  costcode  level. 
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Appendix  C 
BUDGETS 

Budget  records 

Every  proper  user  in  filestore  has  an  entry  in  a system  file  called 
DICTIONARY  in  which  is  recorded  details  of  his  budgets. 

There  are  a number  of  budget  types,  but  for  this  Report  it  is  only 
necessary  to  describe  the  MONEY  budget.  The  MONEY  budget  record  for  any  user 
contains  the  following  information. 

(i)  the  current  ration  - at  RAE  always  set  to  zero  for  costcode  users 
and  their  inferiors; 

(ii)  the  current  allowance  - money  which  can  be  spent  immediately;  and 

(iii)  the  money  spent  so  far  by  this  user  in  this  accounting  period. 

The  allowance  for  each  costcode  user  is  calculated  on  the  basis  of  money 
spent  and  the  money  left  in  his  budget  for  the  current  financial  year.  The 
computed  allowances  are  then  distributed  to  the  appropriate  users  at  the  start  of 
the  accounting  period. 

Periodically,  accounting  programs  are  run  and  charges  for  computer  use 
calculated.  These  charges  are  added  to  the  'money  spent'  part  of  the  appropriate 
user's  MONEY  budget  records. 

Whenever  a job  is  introduced  into  the  system,  George  performs  checks  for 
username  and  sometimes  password  validity  and  also  checks  the  MONEY  allowance 
against  the  total  MONEY  spent.  If  a user  has  spent  more  than  his  allowance  then 
George  rejects  his  jobs  until  he  is  back  in  credit. 

At  the  end  of  each  accounting  period,  a program  is  run  which  processes 
the  budget  records,  printing  out,  amongst  other  things,  the  money  spent  by  each 
use  r . 

If  a user  is  deleted  from  filestore,  then  all  his  budgets  which  of  course 
include  his  debts,  are  inherited  by  his  superior.  The  superior  is  thus  accountable 
tor  all  money  spent  by  himself  and  any  inferiors  deleted  before  the  end  of  the 
accounting  period. 

Trans f o r ring  money 

Money  may  be  transferred  from  one  user  to  another  hv  means  of  the  George 
command  A1.L0WANCE : 
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ALLOWANCE  :username, MONEY ,quanti ty 

The  effect  of  this  is  either  to  increase  the  allowance  of  MONEY  of  any  other 
user  or  decrease  the  allowance  of  MONEY  of  an  immediately  inferior  user,  eg 

ALLOWANCE  ;MM1 1 64 -A, MONEY ,-2 

if  issued  from  :MMI 164  has  the  effect  of  reducing  the  MONEY  allowance  of 
•.MM1164-A  by  t2  and  subsequently  increasing  the  MONEY  allowance  of  :MM1164  by  £2. 

Note  that  at  RAE , one  unit  of  MONEY  represents  £1. 

The  above  command  will  only  be  accepted  if  there  are  sufficient  funds  in 
:MM1164-A's  MONEY  budget  to  cover  the  transfer  of  £2  without  causing  an  overdraft. 

Checking  money  budgets 

During  an  accounting  period  a user  may  wish  to  know  how  much  MONEY  he  or  an 
inferior  has  left  to  spend;  he  can  do  this  by  means  of  the  BUDOETQUERY  George 


command : 


BUDGETQUERY  : username .MONEY  . 


The  effect  of  this  is  that  George  will  print  out  the  MONEY  status  of  the 
named  user  who  must  be  an  immediately  inferior  user.  If  no  username  parameter  is 
given,  then  the  MONEY  status  of  the  user  himself  is  given,  eg 

BUDGETQUERY  :MM1 164-A, MONEY 

may  be  issued  by  :MM1164  to  find  out  how  much  MONEY  :MMI 164-A  has  left  and  how 
much  has  been  spent. 
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Fig  3 Part  of  the  RAE  filestore  structure 
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Fig  6 
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Fig  6 The  JAPEXPANDMAC  macro 
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Fig  8 The  FSDICUPDATE  macro 
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Fig  15  The  RUNACCOUNTSA  macro 
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Fig  21  The  QUARTCOPY  macro 
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Fig  22  Part  of  the  file  IMCACCLIST  output  by  RUNACCOUNTSA 
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Fig  25  Part  of  file  JOBLP  output  by  NEWJAPJOBS 
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Fig  26  Part  of  file  QUARTLP  output  by  QUARTACC 
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